Allow documentes to be dragged onto the editor on OS X

gisle · gisle · commit adf1d178a063 · 2009-01-15T12:53:45.000+01:00
diff --git a/Tkx Editor.app/Contents/Info.plist b/Tkx Editor.app/Contents/Info.plist
@@ -8,5 +8,18 @@
 	<string>Tkx Editor</string>
 	<key>CFBundleIconFile</key>
 	<string>leisure.icns</string>
+	<key>CFBundleDocumentTypes</key>
+	<array>
+		<dict>
+			<key>CFBundleTypeExtensions</key>
+			<array>
+				<string>*</string>
+			</array>
+			<key>CFBundleTypeName</key>
+			<string>All</string>
+			<key>CFBundleTypeRole</key>
+			<string>Viewer</string>
+		</dict>
+	</array>
 </dict>
 </plist>
diff --git a/tkx-ed b/tkx-ed
@@ -29,6 +29,8 @@ if ($IS_AQUA) {
         Tkx::carbon__setProcessName($psn, $PROGNAME);
     };
     warn $@ if $@;
+
+    Tkx::interp_alias("", "::tk::mac::OpenDocument", "", [\&load]);
 }
 
 Tkx::package_require("BWidget");

Original file line number	Diff line number	Diff line change
`@@ -29,6 +29,8 @@ if ($IS_AQUA) {`
`29`	`29`	`Tkx::carbon__setProcessName($psn, $PROGNAME);`
`30`	`30`	`};`
`31`	`31`	`warn $@ if $@;`
	`32`	`+`
	`33`	`+ Tkx::interp_alias("", "::tk::mac::OpenDocument", "", [\&load]);`
`32`	`34`	`}`
`33`	`35`
`34`	`36`	`Tkx::package_require("BWidget");`