From 070bdd6fb778229318298c5546d0fcdb2eebe450 Mon Sep 17 00:00:00 2001
From: guigues <guigues>
Date: Wed, 7 May 2008 14:27:25 +0000
Subject: [PATCH] *** empty log message ***

---
 packages/std/src/bbstdMul.xml         | 24 ++++++++++++++++++++++++
 packages/wx/bbs/boxes/bbGUIdouble.bbs | 21 +++++++++++++++++++++
 2 files changed, 45 insertions(+)
 create mode 100644 packages/std/src/bbstdMul.xml
 create mode 100644 packages/wx/bbs/boxes/bbGUIdouble.bbs

diff --git a/packages/std/src/bbstdMul.xml b/packages/std/src/bbstdMul.xml
new file mode 100644
index 0000000..7397061
--- /dev/null
+++ b/packages/std/src/bbstdMul.xml
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+
+<blackbox name="Mul">
+
+  <author>laurent.guigues@creatis.insa-lyon.fr</author>
+  <description>Multiplies its inputs</description>
+  <category>math</category>
+
+  <input name="In1" type="double" description="First number"/>
+  <input name="In2" type="double" description="Second number"/>
+  <output name="Out" type="double" description="Result"/>
+
+  <process><PRE>
+    bbSetOutputOut( bbGetInputIn1() * bbGetInputIn2() );
+  </PRE></process>
+  
+  <constructor><PRE>
+    bbSetInputIn1(0);
+    bbSetInputIn2(0);
+    bbSetOutputOut(0);
+  </PRE></constructor>    
+
+</blackbox>
+
diff --git a/packages/wx/bbs/boxes/bbGUIdouble.bbs b/packages/wx/bbs/boxes/bbGUIdouble.bbs
new file mode 100644
index 0000000..ce8ea56
--- /dev/null
+++ b/packages/wx/bbs/boxes/bbGUIdouble.bbs
@@ -0,0 +1,21 @@
+load std
+load wx
+define GUIdouble wx
+  kind DEFAULT_GUI
+  new Slider slider
+  set slider.Label true
+#  set slider.ReactiveOnTrack true
+  set slider.ChangeResolution true
+  set slider.Max 100
+  new Div div
+  set div.In2 100
+  connect slider.Out div.In1
+  new Mul mul
+  set mul.In2 100
+  connect mul.Out slider.In
+  input In mul.In1 "Initial position"
+  input Label slider.Title "Label"
+  output Out div.Out "Current position"
+  output Widget slider.Widget "Widget"
+  output BoxChange slider.BoxChange "BoxChange"
+endefine
-- 
2.45.1