The LAMP Application

Generated by IDLdoc

single page | use frames     summary     class     fields     routine details     file attributes

./

lamprt.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

BARNS_R, remove=remove

result = BARNS_I(val)

LAMP_B

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_SCREEN

P_SCREEN

** ******** ** update the screen size common variable

top P_SET_FONT

P_SET_FONT, n, lamp_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

LAMP_EVENT_PARSER, ev, uv

** ** ** ** ******************************** ** 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 P_MAC_EVENT

P_MAC_EVENT, event, uv

** *********** ** events handled by lamp.pro

Parameters

event
uv

top GMY_run

GMY_run, uv, runtxt, wi

** ******* ** analyse the syntax in the file input field of lamp and call appropriate routine

Parameters

uv
runtxt
wi

top SHOW_HELPS

SHOW_HELPS, uv

** ********** ** create a help label window on demand

Parameters

uv

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

P_FCT_CREATE, base, bas_geo2

** ************ ** create the default right frame of main lamp window, where should be the SIM cards

Parameters

base
bas_geo2

top MIC

MIC, nocre

** *** ** legacy

Parameters

nocre

top P_MUS

P_MUS, file

** ***** ** play a music

Parameters

file

top MANUAL

MANUAL, res

** ****** ** show the lamp book

Parameters

res

top P_MESSI

P_MESSI, base, topb

** ******* ** used to speed up when updating windows

Parameters

base
topb

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

resizeButton_call, w, val

** ***************** ** at start set correct XSIZE for all widget_button !!!

Parameters

w
val

top P_DYING

P_DYING, id

** ******* ** lamp is dying so write lamp.jou and lamp.cds

Parameters

id

top P_LAMP_STOP

P_LAMP_STOP

** *********** ** for debugging send a message before stop command

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 P_DO_THAT

P_DO_THAT

** ********* ** handel problems when starting old embedded versions

top SL_RESTSCAN

SL_RESTSCAN, file, cnt

** *********** ** load the scan application when needed for embedded version

Parameters

file
cnt

top SL_SCANLOAD

SL_SCANLOAD, p1, p2

** *********** ** load the scan application when needed for embedded version **

Parameters

p1
p2

top LANGUAGE_HELP

LANGUAGE_HELP

** ************* ** start IDL help application

top ShowFreeW

ShowFreeW

** ********* ** show free workspaces

top BARNS_R

BARNS_R, remove=remove

** ******* ** restore a session for a web client

Keywords

remove

top BARNS_I

result = BARNS_I(val)

******* ******* ** interfacing a webLamp client

Parameters

val

top LAMP_B

LAMP_B

** ****** ** running lamp in terminal mode

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 14:35:35 2013
Lines: 3,350