1 # -------------------------------------------------------
2 # This one, waiting the troubles with DirDialog are fixed
3 # -------------------------------------------------------
9 new StaticText statictext
10 new StaticText statictextDirectory
12 new TextCtrl textctrlDirectory
13 new CommandButton commandbutton
14 new CommandButton dirbutton
15 new DirDialog dirdialog
18 new MakeFileName makeFilePackagename
19 new ConcatStrings concatstringCommand
25 set sizer.Title "Create Package"
27 set sizer.WxHeight 300
29 set statictext.In "This script creates a new BBTK Package"
30 set textctrl.Title "2) Name of the Package"
31 set textctrl.In "MyPackageBBTK"
32 set commandbutton.Label "3) Create Package"
33 set msg1.In "Missing directory ..?????"
34 set msg2.In "Ok, See result of the command in the console window"
35 set commandbutton.In "exec msg1"
36 set dirbutton.Label "1) Write directory name, then click here"
37 set execbbi.In "exec print; exec msg2; exec execsys;"
39 #set dirbutton.In "connect dirdialog.Out statictextDirectory.In; exec dirdialog; exec statictextDirectory; set commandbutton.In 'exec execbbi' "
40 set dirbutton.In "connect textctrlDirectory.Out statictextDirectory.In ; exec statictextDirectory; set commandbutton.In 'exec execbbi' "
42 set statictextDirectory.Title "Directory"
43 set statictextDirectory.ProcessMode 1
45 connect textctrlDirectory.Out makeFilePackagename.Directory
46 connect textctrl.Out makeFilePackagename.File
53 set concatstringCommand.In1 "bbCreatePackage "
54 connect makeFilePackagename.Out concatstringCommand.In2
55 connect concatstringCommand.Out execsys.In
56 connect concatstringCommand.Out print.In
58 connect sizer.Child statictext.Parent
59 connect sizer.Child textctrlDirectory.Parent
60 connect sizer.Child dirbutton.Parent
61 connect sizer.Child statictextDirectory.Parent
62 connect sizer.Child textctrl.Parent
63 connect sizer.Child commandbutton.Parent
65 set dirbutton.ProcessMode 1