packages/toolsbbtk/bbs/appli/CreatePackage.bbs

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