[REBOL] VID: Check problem

From: kpeters::otaksoft::com at: 1-Oct-2007 9:48

I use the code below to "lock" faces on data entry screens to prevent
users from accidentally changing things.

II just noticed that I cannot seem to update checks when they are
locked
 - that workd fine for all other faces.

How can I handle this?

Thanks
Kai

lock-fields: func[ pane [block!] flag [logic!] ][
   either flag
      [  unfocus
         foreach face pane [
            if any [ face/style = 'field
                     face/style = 'fld
                     face/style = 'btn
                     face/style = 'defbtn
                     face/style = 'rotary
                     face/style = 'rot
                     face/style = 'choice
                     face/style = 'sel
                     face/style = 'check ] [ face/feel: none ]
         ]
      ][ foreach face pane [
            if face/style = 'check [
              face/feel: svvf/check    ]
            if any [ face/style = 'field   face/style = 'fld   ] [
              face/feel: ctx-text/edit ]
            if any [ face/style = 'rotary  face/style = 'rot   ] [
               face/feel: svvf/rotary   ]
            if any [ face/style = 'choice  face/style = 'sel   ] [
               face/feel: svvf/choice   ]
            if any [ face/style = 'btn     face/style = 'defbtn] [
               face/feel: svvf/btn      ]
         ]
      ]
]

[1] · 2 · 3 · 4 · See whole thread