propsheet colours 
Author Message
 propsheet colours

Quote:

> Has anyone tried changing foreground and background colours in
> connection with lib propsheet?
> [...]
> All help gratefully received, except advice on which X manuals to read.
> I absolutely refuse to go and read X manuals to find out how to drive
> Pop-11 facilities: it should all be doable using pop-11 idioms.

> Aaron

The following should do what you want:

    define set_tree_colors(fg, bg, root);
        dlvars fg, bg, root;
        applist(
            root.XptWidgetTree.flatten,
            procedure(widget);
                lvars widget,
                    has_fg = XptResourceInfo(widget, XtN foreground),
                    has_bg = XptResourceInfo(widget, XtN background),
                    has_fc = XptResourceInfo(widget, XtN fontColor)
                ;
                if has_fg then fg endif,
                if has_bg then bg endif,
                if has_fc then fg endif
                    -> XptPopValue(
                        widget,
                        if has_fg then XtN foreground endif,
                        if has_bg then XtN background endif,
                        if has_fc then XtN fontColor  endif
                    );
            endprocedure
        );
    enddefine;

    uses propsheet;
    propsheet_init();
    vars mybox=propsheet_new_box('Properties', false, false, false);
    vars mysheet = propsheet_new('Basic Settings', mybox, false);
    propsheet_show([% mysheet, mybox %]);
    propsheet_field(mysheet, [Filename '']);

        set_tree_colors('black', 'white', mybox);


ObDisclamer: Poplog pay my wages



Fri, 08 Dec 1995 22:00:09 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. propsheet colours (PS)

2. propsheet colours

3. GIF colours displayed wrong on other than 256-colours

4. Propsheet crashes poplog

5. Propsheet Problems...

6. PROPSHEET POSITIONS AND STYLES

7. Propsheet and mouse

8. problem startup up propsheet on X terminals

9. making propsheet easier to use

10. AGSS and mice; colours

11. Adding Colours to J

12. changing colours?

 

 
Powered by phpBB® Forum Software