packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs

   1 description "Creates the XML or C++ code for a new black box"
   2 author "eduardo.davila at creatis.insa-lyon.fr"
   3 category "toolsbbtk"
   4
   5 load std
   6 load wx
   7
   8 new OutputText windowTitle
   9   set windowTitle.In "Black box informations"
  10
  11 new DirectorySelector dir
  12     set dir.Message "Select the location of your new black box"
  13
  14 new InputText nameBlackbox
  15     set nameBlackbox.Title "Blackbox name         (1 word)"
  16     set nameBlackbox.In "NEW_BLACKBOX"
  17
  18 new InputText namePackage
  19     set namePackage.Title "Package name         (1 word)"
  20     set namePackage.In "__PACKAGE__"
  21
  22
  23 new InputText author
  24     set author.Title "Author(s)           (caracters   '<',  '>' not accepted...)"
  25     set author.In "_author_"
  26
  27 new InputText description
  28     set description.Title "Description            (caracters   '<',  '>' not accepted...)"
  29     set description.In "_description_"
  30
  31 #---------------------------------------------------------------------
  32
  33
  34 new RadioButton typeBlackbox
  35   set typeBlackbox.Title "Type of the blackbox :"
  36   set typeBlackbox.In0 "std-template"
  37   set typeBlackbox.In1 "VTK_PolyDataAlgorithm-template"
  38   set typeBlackbox.In2 "VTK_ImageAlgorithm-template"
  39   set typeBlackbox.In3 "widget-template "
  40
  41 new StringSelect stringselectorType
  42   set stringselectorType.In0 "std"
  43   set stringselectorType.In1 "VTK_PolyDataAlgorithm"
  44   set stringselectorType.In2 "VTK_ImageAlgorithm"
  45   set stringselectorType.In3 "widget"
  46   connect  typeBlackbox.Out stringselectorType.In
  47
  48 #---------------------------------------------------------------------
  49
  50 new RadioButton formatBlackbox
  51   set formatBlackbox.Title "Format of the output file :"
  52   set formatBlackbox.In 0
  53   set formatBlackbox.In0 "C++"
  54   set formatBlackbox.In1 "XML"
  55
  56 new StringSelect stringselectorFormat
  57   set stringselectorFormat.In0 "C++"
  58   set stringselectorFormat.In1 "XML"
  59   connect  formatBlackbox.Out stringselectorFormat.In
  60
  61 #---------------------------------------------------------------------
  62
  63 new LayoutLine layoutHor
  64   set  layoutHor.Orientation H
  65   connect typeBlackbox.Widget layoutHor.Widget1
  66   connect formatBlackbox.Widget layoutHor.Widget2
  67
  68 new CommandButton cancelButton
  69     set cancelButton.In "quit"
  70     set cancelButton.Label "Cancel"
  71
  72 new CommandButton createButton
  73     set createButton.In "exec command; quit"
  74     set createButton.Label "Go"
  75
  76 new LayoutLine buttons
  77     set buttons.Orientation Horizontal
  78     connect cancelButton.Widget buttons.Widget1
  79     connect createButton.Widget buttons.Widget2
  80
  81 new LayoutLine main
  82     connect windowTitle.Widget main.Widget1
  83     connect nameBlackbox.Widget main.Widget2
  84     connect namePackage.Widget main.Widget3
  85     connect author.Widget main.Widget4
  86     connect description.Widget main.Widget5
  87     connect layoutHor.Widget main.Widget6
  88     connect buttons.Widget main.Widget7
  89     set main.WinTitle "Create new black box"
  90     set main.WinDialog true
  91     set main.WinWidth 350
  92     set main.WinHeight 500
  93
  94 #---------------------------------------------------------------------
  95
  96 new ConcatStrings dirStr
  97  connect dir.Out dirStr.In1
  98  set dirStr.In2 " "
  99
 100 new ConcatStrings packageNameStr
 101  connect namePackage.Out packageNameStr.In1
 102  set packageNameStr.In2 " "
 103
 104 new ConcatStrings blackboxNameStr
 105  connect nameBlackbox.Out blackboxNameStr.In1
 106  set blackboxNameStr.In2 " "
 107
 108 new ConcatStrings typeStr
 109  connect stringselectorType.Out typeStr.In1
 110  set typeStr.In2 " "
 111
 112 new ConcatStrings formatStr
 113  connect stringselectorFormat.Out formatStr.In1
 114  set formatStr.In2 " "
 115
 116 new ConcatStrings authorStr
 117  connect author.Out authorStr.In1
 118  set authorStr.In2 " "
 119
 120 new ConcatStrings descriptionStr
 121  connect description.Out descriptionStr.In1
 122  set descriptionStr.In2 " "
 123
 124 new Configuration conf
 125
 126 new ConcatStrings commandStr
 127     connect conf.BinPath commandStr.In1
 128     connect conf.FileSeparator commandStr.In2
 129     set commandStr.In3 "bbCreateBlackBox "
 130
 131 new ConcatStrings concatStr
 132     connect  commandStr.Out             concatStr.In1
 133     connect dirStr.Out                          concatStr.In2
 134     connect packageNameStr.Out  concatStr.In3
 135     connect blackboxNameStr.Out concatStr.In4
 136     connect typeStr.Out                         concatStr.In5
 137     connect formatStr.Out                       concatStr.In6
 138     connect authorStr.Out                       concatStr.In7
 139     connect descriptionStr.Out          concatStr.In8
 140
 141
 142 new ExecSystemCommand command
 143     connect concatStr.Out command.In
 144     print $concatStr.Out$
 145
 146 exec main
 147