*** empty log message ***

[bbtk.git] / packages / toolsbbtk / bbs / appli / CreatePackage.bbs

diff --git a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs b/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
index ecd1cd6d6bbfc3b5b07740e2765a6f12fbac0232..d1e26086664aac6bd6e5e2ed441651d96d541595 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
@@ -23,16 +23,25 @@ new InputText description
     set description.Title "Description            (caracters   '<',  '>' not accepted...)"
     set description.In "_description_"
 
+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 name.Widget main.Widget2
     connect author.Widget main.Widget3
     connect description.Widget main.Widget4
-    connect createButton.Widget main.Widget5
+    connect buttons.Widget main.Widget5
     set main.WinTitle "Create new black box package"
     set main.WinDialog true
     set main.WinWidth 400