Changeset 49 for trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/doubleclickaction.pro

Timestamp:

05/09/06 11:47:44 (18 years ago)

Author:

pinsard

Message:

upgrade of AUTOUR_de_XXX according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/doubleclickaction.pro (copied) (copied from trunk/WIDGET/AUTOUR_de_XXX/doubleclickaction.pro) (3 diffs)

trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/doubleclickaction.pro

@@ -7 +7 @@
    wset, win
 ; quel est le dessin selectionne??
-   petitin = extractatt(top_uvalue, 'petitin')
-   petitout = extractatt(top_uvalue, 'petitout')
+   smallin = extractatt(top_uvalue, 'smallin')
+   smallout = extractatt(top_uvalue, 'smallout')
    x = (convert_coord(uval.x[0],uval.y[0], /device, /to_normal))[0]
    y = (convert_coord(uval.x[0],uval.y[0], /device, /to_normal))[1]
-   numcolonne = n_elements(where(findgen(petitin[0])/petitin[0] lt x))-1
-   numligne = n_elements(where(findgen(petitin[1])/petitin[1] lt 1-y))-1
-   numdessin = numcolonne+numligne*petitin[0]+1
+   numcolonne = n_elements(where(findgen(smallin[0])/smallin[0] lt x))-1
+   numligne = n_elements(where(findgen(smallin[1])/smallin[1] lt 1-y))-1
+   numdessin = numcolonne+numligne*smallin[0]+1
 ; choix du type d''action
    case uval.press of
       1:BEGIN
-;         if top_uvalue.petitin[2] NE numdessin then begin
-         tracecadre, petitin, /erase
-         if total(petitin EQ petitout) EQ 3 then $
-          tracecadre, petitout, /out
-         petitin = [petitin[0:1], numdessin]
-         *top_uvalue[1, findline(top_uvalue, 'petitin')] = petitin
-         tracecadre, petitin
+;         if top_uvalue.smallin[2] NE numdessin then begin
+         tracecadre, smallin, /erase
+         if total(smallin EQ smallout) EQ 3 then $
+          tracecadre, smallout, /out
+         smallin = [smallin[0:1], numdessin]
+         *top_uvalue[1, findline(top_uvalue, 'smallin')] = smallin
+         tracecadre, smallin
          !p = (extractatt(top_uvalue, 'penvs'))[numdessin-1]
          !x = (extractatt(top_uvalue, 'xenvs'))[numdessin-1]
@@ -30 +30 @@
       END
       2:BEGIN 
-;         if top_uvalue.petitout[2] NE numdessin then begin
-         tracecadre, petitout, /erase
-         if total(petitin EQ petitout) EQ 3 then $
-          tracecadre, petitin
-         petitout = [petitin[0:1], numdessin]
-         *top_uvalue[1, findline(top_uvalue, 'petitout')] = petitout
-         tracecadre, petitout, /out
+;         if top_uvalue.smallout[2] NE numdessin then begin
+         tracecadre, smallout, /erase
+         if total(smallin EQ smallout) EQ 3 then $
+          tracecadre, smallin
+         smallout = [smallin[0:1], numdessin]
+         *top_uvalue[1, findline(top_uvalue, 'smallout')] = smallout
+         tracecadre, smallout, /out
 ;         endif
       END
       4:BEGIN
-         tracecadre, [petitin[0:1], numdessin], /fill
+         tracecadre, [smallin[0:1], numdessin], /fill
          inserthistory, event.top, ';', '; beginning of '+strtrim(numdessin, 2) $
           , '; end of '+strtrim(numdessin, 2)
@@ -53 +53 @@
          (*top_uvalue[1, findline(top_uvalue, 'prefixes')])[numdessin] = ''
 
-         if numdessin EQ petitin[2] then $
-          tracecadre, petitin
-         if numdessin EQ petitout[2] then $
-          tracecadre, petitout, /out
-      END
+         if numdessin EQ smallin[2] then $
+          tracecadre, smallin
+         if numdessin EQ smallout[2] then $
+          tracecadre, smallout, /out
+       END
+       ELSE:
    endcase
    updatewidget, event.top