X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=packages%2Ftoolsbbtk%2Fbbs%2Fappli%2FCreateBlackBox.bbs;h=25d6c1553e1c663157468d948c5aba6e037d409b;hb=8a15ae69662abfba701a970f9efee218e0b126d3;hp=b7630939d9aa2cd02a6ccefe0f7b304815e01b4f;hpb=029bec1fef526327df088b15771a4a4d84af7b0b;p=bbtk.git

diff --git a/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs b/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs
index b763093..25d6c15 100644
--- a/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs
+++ b/packages/toolsbbtk/bbs/appli/CreateBlackBox.bbs
@@ -65,10 +65,19 @@ new LayoutLine layoutHor
   connect typeBlackbox.Widget layoutHor.Widget1
   connect formatBlackbox.Widget layoutHor.Widget2
 
+new CommandButton cancelButton
+    set cancelButton.In "quit"
+    set cancelButton.Label "Cancel"
+
 new CommandButton createButton
     set createButton.In "exec command; quit"
     set createButton.Label "Go"
 
+new LayoutLine buttons
+    set buttons.Orientation Horizontal
+    connect cancelButton.Widget buttons.Widget1
+    connect createButton.Widget buttons.Widget2
+
 new LayoutLine main
     connect windowTitle.Widget main.Widget1
     connect nameBlackbox.Widget main.Widget2
@@ -76,7 +85,7 @@ new LayoutLine main
     connect author.Widget main.Widget4
     connect description.Widget main.Widget5
     connect layoutHor.Widget main.Widget6
-    connect createButton.Widget main.Widget7
+    connect buttons.Widget main.Widget7
     set main.WinTitle "Create new black box"
     set main.WinDialog true
     set main.WinWidth 350