Changeset 114 for trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX
- Timestamp:
- 06/19/06 16:14:56 (18 years ago)
- Location:
- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX
- Files:
-
- 23 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro
r74 r114 37 37 ; we get back the ids of the widget parts 38 38 ;------------------------------------------------------------ 39 ; 40 compile_opt idl2, strictarrsubs 41 ; 39 42 txtcmdid = widget_info(base, find_by_uname = 'txtcmd') 40 43 domainid = widget_info(base, find_by_uname = 'domain') -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro
r74 r114 33 33 FUNCTION buildreadcmd, base, snameexp, procedure, type, BOXZOOM = boxzoom $ 34 34 , COMPLETE = complete, NAMEFIELD = namefield 35 ; 36 ; 37 compile_opt idl2, strictarrsubs 35 38 ; 36 39 @cm_4cal ; for key_caltype -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.pro
r69 r114 1 1 PRO changefield, base, newfieldname, BOXZOOM = boxzoom 2 ; 3 ; 4 compile_opt idl2, strictarrsubs 2 5 ; 3 6 widget_control, base, get_uvalue = top_uvalue -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro
r74 r114 1 1 PRO changefile, base, newfilename, BOXZOOM = boxzoom, DATE1 = date1, DATE2 = date2, FIELDNAME = fieldname 2 ; 3 ; 4 compile_opt idl2, strictarrsubs 2 5 ; 3 6 widget_control, base, /hourglass … … 7 10 ELSE newfile = newfilename ; it is already the index of the new file 8 11 if newfile EQ -1 then begin 9 nothing ,report('invalid filename')12 nothing = report('invalid filename') 10 13 return 11 14 endif -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/createhistory.pro
r69 r114 3 3 ;------------------------------------------------------------- 4 4 ; we save globalcommand in globaloldcommand 5 ; 6 compile_opt idl2, strictarrsubs 7 ; 5 8 widget_control,base, get_uvalue = top_uvalue 6 9 globalcommand = extractatt(top_uvalue, 'globalcommand') -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/cutcmd.pro
r69 r114 1 1 PRO cutcmd, widcmd, toread, numberofread, prefix, nameexp, ending 2 ; 3 ; 4 compile_opt idl2, strictarrsubs 2 5 ; 3 6 dummy = where(byte(widcmd) EQ (byte('"'))[0], nbdblquote) -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/definedefaultextra.pro
r49 r114 1 1 FUNCTION definedefaultextra, nomvariable 2 ; 3 compile_opt idl2, strictarrsubs 4 ; 2 5 case strlowcase(nomvariable) of 3 6 ; 'sn':BEGIN -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/doubleclickaction.pro
r69 r114 1 1 PRO doubleclickaction, event 2 2 ;------------------------------------------------------------ 3 ; 4 compile_opt idl2, strictarrsubs 5 ; 3 6 widget_control, event.id , get_uvalue = uval 4 7 widget_control, event.top, get_uvalue = top_uvalue -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/extractatt.pro
r49 r114 1 1 FUNCTION extractatt, top_uvalue, name 2 ; 3 compile_opt idl2, strictarrsubs 4 ; 2 5 taille = size(top_uvalue) 3 6 j = -1 -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/findline.pro
r49 r114 1 1 FUNCTION findline, top_uvalue, name 2 ; 3 compile_opt idl2, strictarrsubs 4 ; 2 5 taille = size(top_uvalue) 3 6 j = -1 -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/identifyclick.pro
r49 r114 1 1 FUNCTION identifyclick, event 2 ; 3 compile_opt idl2, strictarrsubs 4 ; 2 5 widget_control, event.id, get_uvalue=uval, /no_copy 3 6 thisEvent = TAG_NAMES(event, /Structure) -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/inserthistory.pro
r69 r114 1 1 PRO inserthistory, base, text, line1, line2 2 2 ;------------------------------------------------------------- 3 ; 4 compile_opt idl2, strictarrsubs 5 ; 3 6 widget_control,base, get_uvalue = top_uvalue 4 7 globalcommand = extractatt(top_uvalue, 'globalcommand') -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/letsdraw.pro
r69 r114 36 36 37 37 PRO letsdraw, base, COMMANDE = commande, _extra = ex 38 ; 39 compile_opt idl2, strictarrsubs 40 ; 38 41 @common 39 42 ; on recupere la uvalue de base -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/loadgrid.pro
r69 r114 2 2 ; 3 3 ; 4 ; 5 compile_opt idl2, strictarrsubs 6 ; 4 7 @cm_4mesh 5 8 ccmeshparameters.filename = meshfilein -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/longclickaction.pro
r69 r114 1 1 PRO longclickaction, event 2 ; 3 compile_opt idl2, strictarrsubs 4 ; 2 5 widget_control, event.id, get_uvalue = uval 3 6 widget_control, event.top, get_uvalue = top_uvalue -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/read_vermair.pro
r69 r114 1 1 FUNCTION read_vermair, name, debut, fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex 2 ; 3 compile_opt idl2, strictarrsubs 4 ; 2 5 @common 3 6 ;------------------------------------------------------------ -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro
r74 r114 33 33 ;------------------------------------------------------------ 34 34 FUNCTION scanfile, namefile, GRID = GRID, _extra = ex 35 ; 36 compile_opt idl2, strictarrsubs 37 ; 35 38 @common 36 39 ;------------------------------------------------------------ -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro
r74 r114 1 1 ;********************************************************************* 2 2 PRO selectfile_event, event 3 ; 4 ; 5 compile_opt idl2, strictarrsubs 3 6 ; 4 7 @common … … 142 145 ;********************************************************************* 143 146 FUNCTION selectfile, datafilename, idlfile, argspro, _extra = ex 147 ; 148 ; 149 compile_opt idl2, strictarrsubs 144 150 ; 145 151 @common -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/singleclickaction.pro
r69 r114 1 1 PRO singleclickaction, event 2 ; 3 compile_opt idl2, strictarrsubs 4 ; 2 5 @cm_4mesh 3 6 @cm_4data -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/tracecadre.pro
r49 r114 3 3 ; determination de la colonne et de la ligne correspondant au small en 4 4 ; entree 5 ; 6 compile_opt idl2, strictarrsubs 7 ; 5 8 numdessin = small[2]-1 6 9 numligne = numdessin/small[0] -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/updatewidget.pro
r69 r114 1 1 PRO updatewidget, base, NOBOXZOOM = noboxzoom, NODATES = nodates, NOTYPE = notype 2 2 ;---------------------------------------------------------------------- 3 ; 4 compile_opt idl2, strictarrsubs 5 ; 3 6 widget_control,base, get_uvalue = top_uvalue 4 7 smallin = extractatt(top_uvalue, 'smallin') -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro
r74 r114 1 1 pro xcreateanim_event, event 2 ; 3 compile_opt idl2, strictarrsubs 4 ; 2 5 @common 3 6 ; on recupere les aguments contenus ds le widget … … 139 142 ;---------------------------------------------------------------- 140 143 PRO xcreateanim, parent 144 ; 145 compile_opt idl2, strictarrsubs 146 ; 141 147 @common 142 148 ; -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xxxmenubar_event.pro
r74 r114 1 1 ;------------------------------------------------ 2 2 PRO xxxmenubar_event, event 3 ; 4 compile_opt idl2, strictarrsubs 5 ; 3 6 @common 4 7
Note: See TracChangeset
for help on using the changeset viewer.