./
lamp.pro
Routines
Show_Version, wid, version, bil
result = finefile(pth, count=count)
LAMP_, just
P_LAYOUT, flag, prox=prox, xbu=xbu
AFTER_RESTORE
P_ENVI, cust
result = P_LAMBDA(dummy)
P_LAMBDA, rst
P_ILLproposal, flag, runtxt, okProposal, ask=ask
result = P_ONLYONE(pth, lamp_dvd)
P_NEWCUST, fromcust=fromcust
P_SCREEN
P_SET_FONT, n, lamp_font
LAMP_EVENT_PARSER, ev, uv
P_MAC_CREATE, base, mbar, wread, b33, b1, cque
P_MAC_EVENT, event, uv
GMY_run, uv, runtxt, wi
SHOW_HELPS, uv
P_SET_PATH, ppth, silent=silent
P_FCT_CREATE, base, bas_geo2
MIC, nocre
P_MUS, file
MANUAL, res
P_MESSI, base, topb
dynlabel_call, w
resizeButton_call, w, val
P_DYING, id
P_LAMP_STOP
P_LAMP_INIT, lamp_ziz=lamp_ziz, george=george
P_MYINIT_PROX
P_DO_THAT
SL_RESTSCAN, file, cnt
SL_SCANLOAD, p1, p2
LANGUAGE_HELP
ShowFreeW
SL_LAMPSCAN, flg, p1, p2, p3, p4, p5
P_RESTORE, file, cnt
P_ZOOM, x, y, xd, yx, bb
desktop_event, event
desktop_tuch, tbas, lbas, lsiz, lins, out, geor
desktop_puch, out, geo=geo
desktop_lamp, lodtx
desktop_kill, id
maj_desktop, lodtx, text, pcent
desktop, lodtx, menu=menu, nomenu=nomenu
BARNS_R, remove=remove
result = BARNS_I(val)
LAMP_B
RUNTIME
RUNTIM
MAIN
LAMP, just, NW=NW, GEO=GEO, SMALL=SMALL, MEDIUM=MEDIUM, LARGE=LARGE, WIDE=WIDE, GEOLAMP=GEOLAMP, LAMPGEO=LAMPGEO, ONLY=ONLY, FULL=FULL, MINI=MINI
Routine details
top Show_Version
Show_Version, wid, version, bil
** ************ ** return lamp version , keep some pseudo colors for lamp windows at start
Parameters
- wid
- version
- bil
top finefile
result = finefile(pth, count=count)
******* ** Pb MacosX (duplicated!)
Parameters
- pth
Keywords
- count
top LAMP_
LAMP_, just
** *** **** ** ********************* ** ********************* ** LARGE ARRAY MANIPULATION PROGRAM ** ----- ----- ------------ ------- ** This module manages the LAMP application. ** It is written at ILL Grenoble (www.ill.eu) by ** M. Ferrand for data integrity ** G. Kearley for users integrity ** D. Richard for project integrity ** B. Vettier for excellent functions ** R. Jouffrey for wonderfull superplot ** The LAMP package is distributed as "Shareware". If you find this application ** useful, you may register your copy simply by sending an electronic mail ** message to lamp@ill.eu. We would gratefully appreciate any feedback on the ** LAMP application.
Parameters
- just
top P_LAYOUT
P_LAYOUT, flag, prox=prox, xbu=xbu
** ******** ** User callable ** This procedure should be used as commands in MYINIT procedure. ** flag='george' , 'lamp' , 'light' , 'full' , 'hide' , 'show' FOR LAMP LAYOUT ** flag='List_oldTOF' TO LOAD 'A_List_oldTOF.prox' FOR MACROS LAYOUT ** prox=['file1','file2'] TO LOAD 'file1.prox' & 'file2.prox' IN DO COMMAND GUI
Parameters
- flag
Keywords
- prox
- xbu
top AFTER_RESTORE
AFTER_RESTORE
** ************* ** arrange some variables after restoring a lamp session (lamp.ses)
top P_ENVI
P_ENVI, cust
** ****** ** ** Track environments and custome variables. ** see customiz , read_par.pro , read_par.ill ** it calls P_NEWCUST to complete the work
Parameters
- cust
top P_LAMBDA
result = P_LAMBDA(dummy)
******* ******** ** User callable ** give back the lamp_macros localisation for the user (function)
Parameters
- dummy
top P_LAMBDA
P_LAMBDA, rst
** ******** ** User callable ** give back the lamp_macros localisation for the user (procedure) **
Parameters
- rst
top P_ILLproposal
P_ILLproposal, flag, runtxt, okProposal, ask=ask
** ************* ** Comes from P_MAC_EVENT **flag='560:(inst)' Change instrument, path contained /(inst)/users/data/ ** '560:newInst' Change instrument, path contains 'Cycle'/'inst'/ ** '561:browse' Change path, ali path is '...BROWSE...' ** '561:(inst)' Change path, path contained /(inst)/users/data/ ** '561:newPath' Change path, path contains 'Cycle'/'inst'/ ** '563:browse' Browse from File menu_bar
Parameters
- flag
- runtxt
- okProposal
Keywords
- ask
top P_ONLYONE
result = P_ONLYONE(pth, lamp_dvd)
******* ********* ** ** Choose path corresponding to the platform. ** called after readding read_par.pro (customize)
Parameters
- pth
- lamp_dvd
top P_NEWCUST
P_NEWCUST, fromcust=fromcust
** ********* ** ** Update customisable tables. ** Track environments and custome variables. ** see customiz , read_par.pro , read_par.ill ** called by P_ENVI and complete the work
Keywords
- fromcust
top P_SET_FONT
** ********** ** choose the fonts to adapte guis to the screen size ** Changes the look of next graphics interfaces. size is 0,1,2 for large,medium,small ** The call is P_SET_FONT ,2
Parameters
- n
- lamp_font
top LAMP_EVENT_PARSER
** ** ** ** ******************************** ** main lamp event parser for lamp, dons, dids, bens, georgeo, scan files ** User_Value for lamp's widgets having an event has the following structure: ** [lampcode, sequence , 0 , 0 , 0 , 0 , 0 , 0 , 0] ** where: ** lampcode=-88 for widgets under lamp ** =-87 for widgets under scan ** =-86 for others front windows ** =-85 lamp_b1 Timer ** sequence= 100 --> 199 for MIC unit ** = 200 --> 299 for DON unit ** = 300 --> 399 for DID unit ** = 400 --> 499 for BEN unit ** = 500 --> 599 for MAC unit ** = 600 --> 699 for GEO unit ** others = 7 free parameters
Parameters
- ev
- uv
top P_MAC_CREATE
P_MAC_CREATE, base, mbar, wread, b33, b1, cque
** ************ ** create the data collector frame of main lamp window
Parameters
- base
- mbar
- wread
- b33
- b1
- cque
top GMY_run
** ******* ** analyse the syntax in the file input field of lamp and call appropriate routine
Parameters
- uv
- runtxt
- wi
top P_SET_PATH
P_SET_PATH, ppth, silent=silent
** ********** ** User callable ** This procedure should be used as command in MYINIT procedure. ** it sets the working path
Parameters
- ppth
Keywords
- silent
top P_FCT_CREATE
** ************ ** create the default right frame of main lamp window, where should be the SIM cards
Parameters
- base
- bas_geo2
top dynlabel_call
dynlabel_call, w
** ************* ** at start set the attribute DYNAMIC_RESIZE for all widget_button !!! ** initialy for all widget_label !!!
Parameters
- w
top resizeButton_call
** ***************** ** at start set correct XSIZE for all widget_button !!!
Parameters
- w
- val
top P_LAMP_INIT
P_LAMP_INIT, lamp_ziz=lamp_ziz, george=george
** *********** ** at start set global lamp_ziz and george variables
Keywords
- lamp_ziz
- george
top P_MYINIT_PROX
P_MYINIT_PROX
** ************* ** at start search for myinit.prox file to execute it (embeded version)
top SL_RESTSCAN
** *********** ** load the scan application when needed for embedded version
Parameters
- file
- cnt
top SL_SCANLOAD
** *********** ** load the scan application when needed for embedded version **
Parameters
- p1
- p2
top SL_LAMPSCAN
SL_LAMPSCAN, flg, p1, p2, p3, p4, p5
** *********** ** seems legacy
Parameters
- flg
- p1
- p2
- p3
- p4
- p5
top desktop_tuch
desktop_tuch, tbas, lbas, lsiz, lins, out, geor
** ************ ** legacy (lamp.ini)
Parameters
- tbas
- lbas
- lsiz
- lins
- out
- geor
top maj_desktop
maj_desktop, lodtx, text, pcent
** *********** ** legacy (lamp.ini)
Parameters
- lodtx
- text
- pcent
top desktop
desktop, lodtx, menu=menu, nomenu=nomenu
** ******* ** legacy (lamp.ini) ** First window when LAMP is started.
Parameters
- lodtx
Keywords
top LAMP
LAMP, just, NW=NW, GEO=GEO, SMALL=SMALL, MEDIUM=MEDIUM, LARGE=LARGE, WIDE=WIDE, GEOLAMP=GEOLAMP, LAMPGEO=LAMPGEO, ONLY=ONLY, FULL=FULL, MINI=MINI
** **** ** command to start lamp is lamp. ** /NW for terminal mode ** /SMALL /MEDIUM /LARGE /WIDE to force lamp size ** /FULL to get the original GUI
Parameters
- just
Keywords
- NW
- GEO
- SMALL
- MEDIUM
- LARGE
- WIDE
- GEOLAMP
- LAMPGEO
- ONLY
- FULL
- MINI
File attributes
Modification date: | Tue Oct 1 15:05:56 2013 |
Lines: | 4,194 |