]> Creatis software - bbtk.git/blob - kernel/appli/bbCreatePackage/bbCreatePackage.bbs
* Created vtk package
[bbtk.git] / kernel / appli / bbCreatePackage / bbCreatePackage.bbs
1 load std
2 load wx
3
4 new Sizer sizer
5 new StaticText statictext
6 new StaticText statictextDirectory
7 new TextCtrl textctrl
8 new CommandButton commandbutton
9 new CommandButton dirbutton
10 new DirDialog dirdialog
11 new ExecSys execsys
12 #new ConcatStrings concatstringPackagename
13 new MakeFileName makeFilePackagename
14 new ConcatStrings concatstringCommand
15 new Print print
16 new StaticText msg1
17 new StaticText msg2
18 new Execbbi execbbi
19
20 set sizer.Title "Creat Package"
21 set sizer.WxWidth 400
22 set sizer.WxHeight 200
23
24 set statictext.In "This script creates a new BBTK Package" 
25 set textctrl.Title "2)    Name of the Package" 
26 set textctrl.In "MyPackageBBTK" 
27 set commandbutton.Label  "3)    Create Package" 
28 set msg1.In "Missing directory ..?????"
29 set msg2.In "Ok, See result of the command in the console window"
30 set commandbutton.In  "exec msg1" 
31 set dirbutton.Label  "1)    Choose directory" 
32 set execbbi.In "exec print;  exec msg2; exec execsys;"
33 set dirbutton.In  "connect dirdialog.Out statictextDirectory.In; exec dirdialog; exec statictextDirectory;   set commandbutton.In  'exec execbbi' " 
34 set statictextDirectory.Title "Directory" 
35 set statictextDirectory.ProcessMode 1 
36
37
38 connect dirdialog.Out makeFilePackagename.Directory
39 connect textctrl.Out makeFilePackagename.File
40
41 set msg1.WxWidth 600
42 set msg1.WxHeight 80
43 set msg2.WxWidth 600
44 set msg2.WxHeight 80
45
46 set concatstringCommand.In1 "bbCreatePackage "
47 connect makeFilePackagename.Out concatstringCommand.In2
48 connect concatstringCommand.Out execsys.In  
49 connect concatstringCommand.Out print.In  
50
51 connect sizer.Child statictext.Parent
52 connect sizer.Child dirbutton.Parent
53 connect sizer.Child statictextDirectory.Parent
54 connect sizer.Child textctrl.Parent
55 connect sizer.Child commandbutton.Parent
56
57 set dirbutton.ProcessMode 1
58 graph CURRENT 0
59 exec sizer