cosmetics + change ASCII imput name type->Type

[bbtk.git] / packages / wx / bbs / boxes / bbGUIdouble.bbs

diff --git a/packages/wx/bbs/boxes/bbGUIdouble.bbs b/packages/wx/bbs/boxes/bbGUIdouble.bbs
index ce8ea56b3bbc7e9307edd347c153340cc4e221f1..cef23f403b9ff70e4e5e27cfc52d759655b6f441 100644 (file)
--- a/packages/wx/bbs/boxes/bbGUIdouble.bbs
+++ b/packages/wx/bbs/boxes/bbGUIdouble.bbs
@@ -2,6 +2,14 @@ load std
 load wx
 define GUIdouble wx
   kind DEFAULT_GUI
+  new InputText text
+  input In text.In "Initial value"
+  input Label text.Title "Label"
+  output Out text.Out "Current value"
+  output Widget text.Widget "Widget"
+  output BoxChange text.BoxChange "BoxChange"
+/*
+//  IT IS A BAD IDEA TO USE A SLIDER : HOW TO SET THE RANGE AUTOMATICALLY ?
   new Slider slider
   set slider.Label true
 #  set slider.ReactiveOnTrack true
@@ -18,4 +26,5 @@ define GUIdouble wx
   output Out div.Out "Current position"
   output Widget slider.Widget "Widget"
   output BoxChange slider.BoxChange "BoxChange"
+*/
 endefine