face/parent-face and top-most window?

Hi, some time ago I created following functions for disabling-enabling certain elements. It worked well with Cyphre's styles, as I put many ui elements into group-box. But when I don't use group-box (by default rebol does not have it available), I wanted to somehow put disabling face into system/view/screen-face/pane, but it does not seem to work. disabled-face?: func [f][flag-face? f 'disabled] enabled-face?: func [f][not disabled-face? f] disable-face: func [f /fx effect-block][ if not disabled-face? f [ insert skip find f/parent-face/pane f 1 make face [ offset: f/offset size: f/size edge: none either fx [effect: effect-block][effect: [merge gradmul 1x1 ]] feel: make feel [engage: does []] ] flag-face f 'disabled show f/parent-face ] ] enable-face: func [f][ if disabled-face? f [ remove skip find f/parent-face/pane f 1 deflag-face f 'disabled show f/parent-face ] ] e.g. try following code: view screen: layout [bt: button "OK" [disable-face bt]] and now: view screen: layout [bt: button "OK" [disable-face screen]] I thought that 'screen here is simply being put into system/view/screen-face/pane, but screen-face/parent-face is not set, nor can I find 'screen in system/view/screen-face/pane. could anyone explain, please? thanks, -pekr-

replying to myself: ----------------- REBOL [] disabled-face?: func [f][flag-face? f 'disabled] enabled-face?: func [f][not disabled-face? f] disable-face: func [f /fx effect-block][ if not disabled-face? f [ either f/parent-face [ insert skip find f/parent-face/pane f 1 make face [ offset: f/offset size: f/size edge: none either fx [effect: effect-block][effect: [merge gradmul 1x1 ]] feel: make feel [engage: does []] ] show f/parent-face ][ insert tail f/pane make face [ offset: 0x0 size: f/size edge: none either fx [effect: effect-block][effect: [merge gradmul 1x1 ]] feel: make feel [engage: does []] ] show f ] flag-face f 'disabled ] ] enable-face: func [f][ if disabled-face? f [ either f/parent-face [ remove skip find f/parent-face/pane f 1 deflag-face f 'disabled show f/parent-face ][ remove back tail f/pane deflag-face f 'disabled show f ] ] ] ; test suite .... view screen: layout [bt: button "OK" [disable-face bt wait 3 disable-face screen wait 3 enable-face bt wait 3 enable-face screen]]