packages/toolsbbtk/bbs/appli/bbCreatePackage.bbs_

   1 load wx
   2 load std
   3
   4 new DirectorySelector dir
   5 set dir.Title "Select the location of your new package"
   6
   7 new InputText name
   8 set name.Title "Name"
   9 set name.In "NEW_PACKAGE"
  10
  11 new InputText author
  12 set author.Title "Author(s)"
  13 set author.In " "
  14
  15 new InputText description
  16 set description.Title "Description"
  17 set description.In " "
  18
  19 new Sizer info
  20 connect name.Widget info.Widget1
  21 connect author.Widget info.Widget2
  22 connect description.Widget info.Widget3
  23
  24 set info.WinDialog true
  25 exec info
  26
  27 new ConcatStrings concat1
  28 set concat1.In1 "bbCreatePackage "
  29 connect dir.Out concat1.In2
  30 new ConcatStrings concat2
  31 connect concat1.Out concat2.In1
  32 set concat2.In2 " "
  33 new ConcatStrings concat3
  34 connect concat2.Out concat3.In1
  35 connect name.Out concat3.In2
  36 new ConcatStrings concat4
  37 connect concat3.Out concat4.In1
  38 set concat4.In2 " '"
  39 new ConcatStrings concat5
  40 connect concat4.Out concat5.In1
  41 connect author.Out concat5.In2
  42 new ConcatStrings concat6
  43 connect concat5.Out concat6.In1
  44 set concat6.In2 "' '"
  45 new ConcatStrings concat7
  46 connect concat6.Out concat7.In1
  47 connect description.Out concat7.In2
  48 new ConcatStrings concat8
  49 connect concat7.Out concat8.In1
  50 set concat8.In2 "'"
  51
  52 new ExecSystemCommand command
  53 connect concat8.Out command.In
  54 print $concat8.Out$
  55 exec command
  56 #seg fault :
  57 #quit