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