Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Using the check-box in REBOL/view Re:

From: allen:rebolforces at: 29-Aug-2000 8:45

>----- Original Message ----- >From: <[toolnes--online--no]> >To: <[list--rebol--com]> >Sent: Tuesday, August 29, 2000 4:18 AM >Subject: [REBOL] Using the check-box in REBOL/view >Can someone give me an easy example that uses a check-box to change a
variable from "1" to "2" and >label the variable? The view VID check-box, as it is currently implemented, works as a flag. It does not trigger an action when its state is changed. The FAQ has for an example of using the check-box However if you want a check-box that can trigger an action. There is a example on the RF rebsite (in the style section) called check-style.r on the RF rebsite shows how to do that. REBOL [] do The basic script is at the end of this email.. Cheers, Allen K ;-------------------------- REBOL [ Title: "Check-style" Author: "Allen Kamp" Email: [allen--rebolforces--com] ] ; the style check-style: stylize [ chk check [ feel: make feel [ engage: func [face action event][ if action = 'down [ face/state: not face/state show face do face/action ] ] ] ] ] ; the demo main-face: layout [ styles check-style backdrop 180.160.120 txt: label 200 {This modified VID 'CHECK style triggers an action when it is clicked, so you can make changes that reflect the current state of the checkbox} with [font: [shadow: none style: 'bold]] across label "Shadow Text?" 150 bold c1: chk [ either c1/state txt/font/shadow: 4x4 show txt ][ txt/font/shadow: 0x0 show txt ] ] return label "Highlight Text?" 150 bold c2: chk [ either c2/state [ system/view/vid/vid-feel/focus txt system/view/highlight-start: txt/text system/view/highlight-end: tail txt/text system/view/caret: head txt/text show txt ][ system/view/vid/vid-feel/focus none show txt ] ] return label "Italics?" 150 bold c3: chk [ either c3/state txt/font/style: [italic bold] show txt ][ txt/font/style: 'bold show txt ] ] ] view main-face ;----------------------