Changeset 49 for trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.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/changefield.pro (copied) (copied from trunk/WIDGET/AUTOUR_de_XXX/changefield.pro) (2 diffs)

trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.pro

@@ -1 @@
-PRO changefield, base, newfieldname, BOITE = boite
+PRO changefield, base, newfieldname, BOXZOOM = boxzoom
 ;
    widget_control, base, get_uvalue = top_uvalue
@@ -18 +18 @@
    if zgrid NE oldzgrid then BEGIN
       *top_uvalue[1, findline(top_uvalue, 'zgrid')] = zgrid
-      if NOT keyword_set(boite) THEN BEGIN
-         widget_control, widget_info(base, find_by_uname = 'domain'), get_value = boite
-         widget_control, widget_info(base, find_by_uname = 'domain'), set_value = boite
+      if NOT keyword_set(boxzoom) THEN BEGIN
+         widget_control, widget_info(base, find_by_uname = 'domain'), get_value = boxzoom
+         widget_control, widget_info(base, find_by_uname = 'domain'), set_value = boxzoom
       endif
    endif