- Timestamp:
- 05/09/06 11:47:44 (18 years ago)
- File:
-
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/doubleclickaction.pro
r47 r49 7 7 wset, win 8 8 ; quel est le dessin selectionne?? 9 petitin = extractatt(top_uvalue, 'petitin')10 petitout = extractatt(top_uvalue, 'petitout')9 smallin = extractatt(top_uvalue, 'smallin') 10 smallout = extractatt(top_uvalue, 'smallout') 11 11 x = (convert_coord(uval.x[0],uval.y[0], /device, /to_normal))[0] 12 12 y = (convert_coord(uval.x[0],uval.y[0], /device, /to_normal))[1] 13 numcolonne = n_elements(where(findgen( petitin[0])/petitin[0] lt x))-114 numligne = n_elements(where(findgen( petitin[1])/petitin[1] lt 1-y))-115 numdessin = numcolonne+numligne* petitin[0]+113 numcolonne = n_elements(where(findgen(smallin[0])/smallin[0] lt x))-1 14 numligne = n_elements(where(findgen(smallin[1])/smallin[1] lt 1-y))-1 15 numdessin = numcolonne+numligne*smallin[0]+1 16 16 ; choix du type d''action 17 17 case uval.press of 18 18 1:BEGIN 19 ; if top_uvalue. petitin[2] NE numdessin then begin20 tracecadre, petitin, /erase21 if total( petitin EQ petitout) EQ 3 then $22 tracecadre, petitout, /out23 petitin = [petitin[0:1], numdessin]24 *top_uvalue[1, findline(top_uvalue, ' petitin')] = petitin25 tracecadre, petitin19 ; if top_uvalue.smallin[2] NE numdessin then begin 20 tracecadre, smallin, /erase 21 if total(smallin EQ smallout) EQ 3 then $ 22 tracecadre, smallout, /out 23 smallin = [smallin[0:1], numdessin] 24 *top_uvalue[1, findline(top_uvalue, 'smallin')] = smallin 25 tracecadre, smallin 26 26 !p = (extractatt(top_uvalue, 'penvs'))[numdessin-1] 27 27 !x = (extractatt(top_uvalue, 'xenvs'))[numdessin-1] … … 30 30 END 31 31 2:BEGIN 32 ; if top_uvalue. petitout[2] NE numdessin then begin33 tracecadre, petitout, /erase34 if total( petitin EQ petitout) EQ 3 then $35 tracecadre, petitin36 petitout = [petitin[0:1], numdessin]37 *top_uvalue[1, findline(top_uvalue, ' petitout')] = petitout38 tracecadre, petitout, /out32 ; if top_uvalue.smallout[2] NE numdessin then begin 33 tracecadre, smallout, /erase 34 if total(smallin EQ smallout) EQ 3 then $ 35 tracecadre, smallin 36 smallout = [smallin[0:1], numdessin] 37 *top_uvalue[1, findline(top_uvalue, 'smallout')] = smallout 38 tracecadre, smallout, /out 39 39 ; endif 40 40 END 41 41 4:BEGIN 42 tracecadre, [ petitin[0:1], numdessin], /fill42 tracecadre, [smallin[0:1], numdessin], /fill 43 43 inserthistory, event.top, ';', '; beginning of '+strtrim(numdessin, 2) $ 44 44 , '; end of '+strtrim(numdessin, 2) … … 53 53 (*top_uvalue[1, findline(top_uvalue, 'prefixes')])[numdessin] = '' 54 54 55 if numdessin EQ petitin[2] then $ 56 tracecadre, petitin 57 if numdessin EQ petitout[2] then $ 58 tracecadre, petitout, /out 59 END 55 if numdessin EQ smallin[2] then $ 56 tracecadre, smallin 57 if numdessin EQ smallout[2] then $ 58 tracecadre, smallout, /out 59 END 60 ELSE: 60 61 endcase 61 62 updatewidget, event.top
Note: See TracChangeset
for help on using the changeset viewer.