kernel/appli/bbCreatePackage/bbCreatePackageLinux.bbs

   1 # -------------------------------------------------------
   2 # This one, waiting the troubles with DirDialog are fixed
   3 # -------------------------------------------------------
   4
   5 load std
   6 load wx
   7
   8 new Sizer sizer
   9 new StaticText statictext
  10 new StaticText statictextDirectory
  11 new TextCtrl textctrl
  12 new TextCtrl textctrlDirectory
  13 new CommandButton commandbutton
  14 new CommandButton dirbutton
  15 new DirDialog dirdialog
  16 new ExecSys execsys
  17
  18 new MakeFileName makeFilePackagename
  19 new ConcatStrings concatstringCommand
  20 new Print print
  21 new StaticText msg1
  22 new StaticText msg2
  23 new Execbbi execbbi
  24
  25 set sizer.Title "Create Package"
  26 set sizer.WxWidth  400
  27 set sizer.WxHeight 300
  28
  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;"
  38
  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' "
  41
  42 set statictextDirectory.Title "Directory"
  43 set statictextDirectory.ProcessMode 1
  44
  45 connect textctrlDirectory.Out makeFilePackagename.Directory
  46 connect textctrl.Out makeFilePackagename.File
  47
  48 set msg1.WxWidth 600
  49 set msg1.WxHeight 80
  50 set msg2.WxWidth 600
  51 set msg2.WxHeight 80
  52
  53 set concatstringCommand.In1 "bbCreatePackage "
  54 connect makeFilePackagename.Out concatstringCommand.In2
  55 connect concatstringCommand.Out execsys.In
  56 connect concatstringCommand.Out print.In
  57
  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
  64
  65 set dirbutton.ProcessMode 1
  66 #graph CURRENT 0
  67 exec sizer