X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=src%2Forg%2Fibex%2Fcore%2Fbuiltin%2Fbutton.ibex;fp=src%2Forg%2Fibex%2Fcore%2Fbuiltin%2Fbutton.ibex;h=45bad31522e1d8f25481d40fbaa24617b73b0294;hb=4daeeb4119b901d53b44913c86f8af3ce67db925;hp=0000000000000000000000000000000000000000;hpb=da1f843588c8bd2b2c7cc74a5b4ffff8d57ab712;p=org.ibex.core.git

diff --git a/src/org/ibex/core/builtin/button.ibex b/src/org/ibex/core/builtin/button.ibex
new file mode 100644
index 0000000..45bad31
--- /dev/null
+++ b/src/org/ibex/core/builtin/button.ibex
@@ -0,0 +1,53 @@
+<!-- Copyright 2002 Adam Megacz, see the COPYING file for licensing [LGPL] -->
+<ibex>
+
+    <redirect target="self"/>
+    <preapply name="org.ibex.builtin.bevel"/>
+    <template hot="false">
+
+        var owned = false;
+
+        _holdfrequency = function() { }
+
+        // FIXME: I don't know why I can't use an attribute for this; causes infinite loops
+        holdfrequency = 250;
+
+        __Press1 = function(message) {
+            owned = true;
+            press = true;
+
+            ibex.thread = function() {
+                ibex.sleep(holdfrequency);
+                while (owned) {
+                    if (ibex.button == 1 and mouseinside) hold = true;
+                    ibex.sleep(holdfrequency);
+                }
+            }
+            root._Release1 = function() {
+                if (mouseinside and owned) click = true;
+                owned = false;
+                root.__Release1 = null;
+                release = true;
+            }
+        }
+
+        var owned = false;
+
+        _style = function(s) { arguments.cascade(s); sync_(); }
+
+        _Enter = function() { sync_(); }
+        _Leave = function() { sync_(); }
+        _press = function() { owned = true; sync_(); }
+        _release = function() { owned = false; sync_(); }
+
+        var sync_ = function() {
+            if (mouseinside and owned) depth = "flat";
+            else if (mouseinside) depth = "up";
+            else depth = "up";
+        }
+
+        sync_();
+
+    </template>
+
+</ibex>