- Timestamp:
- 08/09/06 12:12:54 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/identifyclick.pro
r134 r150 1 ;+ 2 ; @file_comments 3 ; 4 ; 5 ; @categories 6 ; 7 ; 8 ; @param EVENT 9 ; 10 ; 11 ; @returns 12 ; 13 ; 14 ; @uses 15 ; 16 ; 17 ; @restrictions 18 ; 19 ; 20 ; @examples 21 ; 22 ; 23 ; @history 24 ; 25 ; 26 ; @version 27 ; $Id$ 28 ; 29 ; @todo 30 ; seb 31 ; 32 ;- 1 33 FUNCTION identifyclick, event 2 34 ; … … 7 39 if thisEvent EQ 'WIDGET_TIMER' then press = 0 ELSE press = event.press 8 40 ; 9 ; d/0/>1 -------->t/1/0--------->**d/2/0** 10 ; -------->d/1/0--------->**t/2/0** click normal41 ; d/0/>1 -------->t/1/0--------->**d/2/0** long click 42 ; -------->d/1/0--------->**t/2/0** normal click 11 43 ; --------->**d/2/>1**-------->d/3/0----->t/0/0 double click 12 44 ; -------->t/3/0----->d/0/0 double click 13 45 type = 'inutile' 14 46 case 1 OF 15 ; d/0/0 1er re monte47 ; d/0/0 1er reascending 16 48 thisEvent EQ 'WIDGET_DRAW' AND uval.click EQ 0 AND press EQ 0: 17 ; d/0/>1 1er appuie de la serie49 ; d/0/>1 1er click of the series 18 50 thisEvent EQ 'WIDGET_DRAW' AND uval.click EQ 0 AND press ge 1:BEGIN 19 51 uval.x = [event.x, 0] … … 23 55 widget_control, event.id, timer = .3 24 56 END 25 ; d/1/0 1er re monte57 ; d/1/0 1er reascending 26 58 thisEvent EQ 'WIDGET_DRAW' AND uval.click EQ 1 AND press EQ 0:uval.click = 2 27 ; d/2/0 finlong click59 ; d/2/0 End of the long click 28 60 thisEvent EQ 'WIDGET_DRAW' AND uval.click EQ 2 AND press EQ 0:BEGIN 29 61 type = 'long' … … 39 71 uval.click = 3 40 72 END 41 ; d/3/0 re monte et fin de double click73 ; d/3/0 reascending and end of the double click 42 74 thisEvent EQ 'WIDGET_DRAW' AND uval.click EQ 3 AND press EQ 0:uval.click = 0 43 ; t/0/0 fin de double click75 ; t/0/0 End of the double click 44 76 thisEvent EQ 'WIDGET_TIMER' AND uval.click EQ 0 AND press EQ 0: 45 77 ; t/1/0 long click 46 78 thisEvent EQ 'WIDGET_TIMER' AND uval.click EQ 1 AND press EQ 0:uval.click = 2 47 ; t/2/0 click normal79 ; t/2/0 normal click 48 80 thisEvent EQ 'WIDGET_TIMER' AND uval.click EQ 2 AND press EQ 0:BEGIN 49 81 type = 'single' … … 51 83 uval.click = 0 52 84 END 53 ; t/3/0 fin de double click85 ; t/3/0 End of the double click 54 86 thisEvent EQ 'WIDGET_TIMER' AND uval.click EQ 3 AND press EQ 0:uval.click = 0 55 ; cas normalement impossible:87 ; Imposible case in theory: 56 88 ELSE:BEGIN 57 89 print, thisEvent, uval.click, press
Note: See TracChangeset
for help on using the changeset viewer.