Can you post the complete script please, Zhang? A J Martin ----- Original Message ----- From: "Zhang, Yao" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, July 21, 2005 5:50 PM Subject: [REBOL] FUNC defined globally didnt get through to layout/field/feel/engage . Need help
> > Hi see below codes. 'redraw is newly defined function. In layout > 'MyClips an unnamed field has its feel/engage programmed to call 'redraw > > And that call failed, cause in feel/engage 'redraw is none > What could be the solution? How to get object feel recognize the > definition of 'redraw ? > > > > Thanks very, > -z > > > redraw: func [face data clip-pos] [ > either clip-pos =3D 0 [ clip-pos: to-integer face/text ] [ > face/text: to-string clip-pos=20 > ] > selection: pick data clip-pos > unless selection =3D none [ > trigit clipdisp copy selection > show face > ] > ] > > MyClips: layout [ > size f-size > ..... > > > vh2 80x30 "00:00:00" rate 1 effect [gradient 0x1 0.0.150 0.0.50] > feel [ > engage: func [face act evt] [ > face/text: now/time show face > clip: read clipboard:// > unless find rotaryClips clip [ append > rotaryClips clip ] > clip-pos: index? find rotaryClips clip > ? redraw ; for debug, it reports "REDRAW > is a none of value: none" > redraw cliptrig rotaryClips clip-pos > ] > ] > ] ;layout > > > -- > To unsubscribe from the list, just send an email to > lists at rebol.com with unsubscribe as the subject. > > > -- To unsubscribe from the list, just send an email to lists at rebol.com with unsubscribe as the subject.
