From 1de2a92791998d5a495aa3f8072086d67663c2bc Mon Sep 17 00:00:00 2001
From: Jack Jansen <jack.jansen@cwi.nl>
Date: Mon, 21 Jun 1999 16:19:43 +0000
Subject: Initial minimal test program: print information on anything dropped
 onto Python window.

---
 Mac/Lib/test/dragtest.py | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 Mac/Lib/test/dragtest.py

diff --git a/Mac/Lib/test/dragtest.py b/Mac/Lib/test/dragtest.py
new file mode 100644
index 0000000..7663af7
--- /dev/null
+++ b/Mac/Lib/test/dragtest.py
@@ -0,0 +1,43 @@
+import Drag
+import time
+xxxx=1
+def decode_hfs(data):
+	import struct, macfs
+	tp = data[0:4]
+	cr = data[4:8]
+	flags = struct.unpack("h", data[8:10])
+	fss = macfs.RawFSSpec(data[10:])
+	return tp, cr, flags, fss
+	
+def tracker(msg, dragref, window):
+	pass
+	
+def dropper(dragref, window):
+	global xxxx
+	n = dragref.CountDragItems()
+	print 'Drop %d items:'%n
+	for i in range(1, n+1):
+		refnum = dragref.GetDragItemReferenceNumber(i)
+		print '%d (ItemReference 0x%x)'%(i, refnum)
+		nf  = dragref.CountDragItemFlavors(refnum)
+		print '    %d flavors:'%nf
+		for j in range(1, nf+1):
+			ftype = dragref.GetFlavorType(refnum, j)
+			fflags = dragref.GetFlavorFlags(refnum, ftype)
+			print '        "%4.4s" 0x%x'%(ftype, fflags)
+			if ftype == 'hfs ':
+				datasize = dragref.GetFlavorDataSize(refnum, ftype)
+				data = dragref.GetFlavorData(refnum, ftype, datasize, 0)
+				print '        datasize', `data`
+				xxxx = data
+				print '        ->', decode_hfs(data)
+				
+			
+def main():
+	print "Drag things onto output window. Press command-. to quit."
+	Drag.InstallTrackingHandler(tracker)
+	Drag.InstallReceiveHandler(dropper)
+	while 1:
+		time.sleep(100)
+		
+main()
-- 
cgit v0.12