--- a/bin/keyboardcomposer	Fri Jun 15 02:18:43 2012 +0000
+++ b/bin/keyboardcomposer	Fri Jun 15 06:09:49 2012 +0000
@@ -18,6 +18,7 @@
 from light9 import dmxclient, showconfig, networking, prof
 from light9.uihelpers import toplevelat, bindkeys
 from light9.namespaces import L9
+from light9.tkdnd import initTkdnd, dragSourceRegister
 from bcf2000 import BCF2000
 
 nudge_keys = {
@@ -73,6 +74,9 @@
         self.scale.pack(side=BOTTOM, expand=1, fill=BOTH)
         bindkeys(self, "<Control-Key-l>", self.launch_subcomposer)
 
+        for w in [self, namelabel, levellabel]:
+            dragSourceRegister(w, 'copy', 'text/uri-list', sub.uri)
+
     def launch_subcomposer(self, *args):
         subprocess.Popen(["bin/subcomposer", "--no-geometry", self.name])
 
@@ -465,6 +469,8 @@
     s = Submasters(graph)
 
     root = Tk()
+    initTkdnd(root.tk, 'tkdnd/trunk/')
+    
     tl = toplevelat("Keyboard Composer", existingtoplevel=root)
 
     startLevels = None