From 458120dd40db6b4df55a4e96b650e16798ef06a0 Mon Sep 17 00:00:00 2001
From: cinap_lenrek <cinap_lenrek@localhost>
Date: Tue, 3 May 2011 11:25:13 +0000
Subject: add hg and python

---
 .../cmd/python/Demo/tkinter/matt/placer-simple.py  | 39 ++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 sys/src/cmd/python/Demo/tkinter/matt/placer-simple.py

(limited to 'sys/src/cmd/python/Demo/tkinter/matt/placer-simple.py')

diff --git a/sys/src/cmd/python/Demo/tkinter/matt/placer-simple.py b/sys/src/cmd/python/Demo/tkinter/matt/placer-simple.py
new file mode 100644
index 000000000..30d9e9e90
--- /dev/null
+++ b/sys/src/cmd/python/Demo/tkinter/matt/placer-simple.py
@@ -0,0 +1,39 @@
+from Tkinter import *
+
+# This is a program that tests the placer geom manager
+
+def do_motion(event):
+    app.button.place(x=event.x, y=event.y)
+
+def dothis():
+    print 'calling me!'
+
+def createWidgets(top):
+    # make a frame. Note that the widget is 200 x 200
+    # and the window containing is 400x400. We do this
+    # simply to show that this is possible. The rest of the
+    # area is inaccesssible.
+    f = Frame(top, width=200, height=200, background='green')
+
+    # place it so the upper left hand corner of
+    # the frame is in the upper left corner of
+    # the parent
+    f.place(relx=0.0, rely=0.0)
+
+    # now make a button
+    f.button = Button(f, foreground='red', text='amazing', command=dothis)
+
+    # and place it so that the nw corner is
+    # 1/2 way along the top X edge of its' parent
+    f.button.place(relx=0.5, rely=0.0, anchor=NW)
+
+    # allow the user to move the button SUIT-style.
+    f.bind('<Control-Shift-Motion>', do_motion)
+
+    return f
+
+root = Tk()
+app = createWidgets(root)
+root.geometry("400x400")
+root.maxsize(1000, 1000)
+root.mainloop()
-- 
cgit v1.2.3