source $env(ONXHOME)/user/init.tcl; source $env(ONXHOME)/user/ui.tcl; source $env(LABHOME)/user/init.tcl; delete v; IViewer v -this [ui getCurrentViewer]; v set pageTitle "XrayTel"; v set page "2 1"; v set region 2; v set cloudContext "modeling cloud color blue markerStyle cross markerSize 10"; v set region 1; ui synchronize; #out disable; Window consoleWindow 500x300-0+0 no VBox ScrolledText consoleText Entry consoleEntry tcl> ui execute "[ui getResource consoleEntry prompt] [ui getValue consoleEntry]" Window 500x500+0+0 VBox MenuBar menuBar CascadeButton File Menu MenuItem Console ui show consoleWindow MenuItem Exec tcl... setTclFileChooser;ui show fileChooser MenuItem session.tcl source session.tcl MenuItem Exec cint... setCintFileChooser;ui show fileChooser MenuItem Exec kumac... setKuipFileChooser;ui show fileChooser MenuItem session.kumac /LIB/LOAD LABLIBLABKUIPWRAP LabKuip exec session MenuItem stdout out disable MenuItem Continue ui setPrompt tcl> ui exit MenuItem Exit ui exit CascadeButton Viewer Menu MenuItem next Do3 set region next MenuItem 1x1 Do3 page 1 1 MenuItem 2x2 Do3 page 2 2 MenuItem 1x2 Do3 page 1 2 MenuItem 2x1 Do3 page 2 1 MenuItem Region page Do3 set region page MenuItem 2D Do3 set viewing 2D MenuItem 3D Do3 set viewing 3D MenuItem Black back Do3 set regionColor "0 0 0" MenuItem White back Do3 set regionColor "1 1 1" MenuItem Grey back Do3 set regionColor "0.8 0.8 0.8" MenuItem view all Do1 viewAll MenuItem PS vec Do2 producePS out.ps MenuItem PS pix Do3 writeImage out.ps PostScript MenuItem gv exec ghostview out.ps MenuItem GIF Do3 writeImage out.gif GIF MenuItem xv exec xv out.gif MenuItem reset page Do2 reset page MenuItem erase page Do2 erase page MenuItem reset region Do2 reset region MenuItem erase region Do2 erase region MenuItem erase static Do2 erase static MenuItem erase dynamic Do2 erase dynamic MenuItem Page title on/off Do2 toggle pageTitleVisible MenuItem auto clip on/off Do2 toggle autoClipping MenuItem New ui createViewer "" examiner CascadeButton Plotter Menu MenuItem v log Do2 toggle vAxisLogScale MenuItem x log Do2 toggle xAxisLogScale MenuItem wall Do2 toggle wallVisible MenuItem grid Do2 toggle gridVisible MenuItem innerFrame Do2 toggle innerFrameVisible MenuItem infos Do2 toggle infosVisible MenuItem title Do2 toggle titleVisible MenuItem title pos Do2 toggle titleUp MenuItem errors Do2 toggle errorsVisible MenuItem superpose Do2 toggle superposeHistograms MenuItem xy RAND Do3 set xyModeling RANDOM MenuItem xy BOX Do3 set xyModeling BOX MenuItem xy TEXT Do3 set xyModeling TEXT MenuItem xy COLOR Do3 set xyModeling COLOR MenuItem lego Lego CascadeButton Cint Menu MenuItem gauss.cint x $LABHOME/examples/cint/gauss.cint MenuItem Gauss dump session load LABLIBLABCINTWRAP LabCint { ISession* session = OnXCintGetSession(); /* If on the stack, I have a crash at exit. */ HCL_Histogram1D* hclHisto = new HCL_Histogram1D("",10,-5.,5.); Lib_RandomGauss randomGauss; for(int count=0;count < 1000;count++) { hclHisto->fill(randomGauss.shoot()); } hclHisto->dump(session->out()); } CascadeButton Viewers Menu viewers Viewer OnX/Main/Viewer FileSelection fileChooser no