Script Library: 1213 scripts
 

double-clic.r

REBOL [ Title: "Test double-click" Date: 16-Feb-2006 File: %double-clic.r Author: "Ph. Le Goff" Email: %lp--legoff--free--fr Version: 0.0.1 Purpose: "An example of double-click testing" History: ["16-Feb-2006 - Initial" ] Purpose: { View testing } library: [ level: 'beginner platform: 'windows type: [demo how-to] domain: [VID] tested-under: [view 1.3.2 on WXP] support: none license: none see-also: none ] ] {usage: just double-clic on green box, event/8 is true if system detects a double-click} fen: layout [ bx: box "double-click me ! " green feel [ engage: func [f a e] [ if e/8 [ bx/color: random 255.255.255 show f ] ] ; engage ] ] ; end fen view center-face fen
halt ;; to terminate script if DO'ne from webpage
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (lp:legoff:free:fr)