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 "<author>"
  18
  19 new InputText description
  20 set description.Title "Description"
  21 set description.In "<description>"
  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 concatStr
  32 set concatStr.In1 "./bbCreatePackage "
  33 connect dir.Out concatStr.In2
  34 set concatStr.In3 " "
  35 connect name.Out concatStr.In4
  36 set concatStr.In5 " '"
  37 connect author.Out concatStr.In6
  38 set concatStr.In7 "' '"
  39 connect description.Out concatStr.In8
  40 set concatStr.In9 "'"
  41
  42
  43 new ExecSystemCommand command
  44 connect concatStr.Out command.In
  45 print $concatStr.Out$
  46 exec command
  47 #seg fault :
  48 #quit