Changeset 774 for trunk/expgui

Timestamp:

Dec 4, 2009 5:11:48 PM (14 years ago)

Author:

toby

Message:

# on 2004/01/30 00:48:57, toby did:
Add code to set app/icon in OS X, remove applescript generation

File:

• trunk/expgui (modified) (7 diffs, 3 props)

trunk/expgui

@@ -100 +100 @@
 set expgui(needpowpref) 0
 set expgui(needpowpref_why) ""
+# on Mac associate a app with .EXP file (on by default)
+set expgui(MacAssignApp) 1
 #=============================================================================
 #----------------------------------------------------------------
@@ -332 +334 @@
     }
     set expgui(expfile) $expfile
+
+    # change the icon and assign an app to this .EXP file
+    global tcl_platform
+    if {$tcl_platform(os) == "Darwin" && $expgui(MacAssignApp)} {
+        MacSetResourceFork $expfile
+    }
+
+    # read in the .EXP file
     set fmt [expload $expfile]
     # if the file was not in the correct format, force a rewrite before use
@@ -451 +461 @@
     set expgui(expfile) $newexpfile
     catch {cd [string trim [file dirname $expgui(expfile)]]}
+    # change the icon and assign an app to this .EXP file
+    global tcl_platform
+    if {$tcl_platform(os) == "Darwin" && $expgui(MacAssignApp)} {
+        MacSetResourceFork $expgui(expfile)
+    }
     set expgui(changed) 0
     set expgui(expModifiedLast) [file mtime $expgui(expfile)]
@@ -559 +574 @@
 
     puts $fp "# EXPGUI saved options from [clock format [clock ticks]]"
-    foreach item {archive asorttype hsorttype filesort disaglSeparateBox \
-            font autoexpload autoiconify autotick autoGRWND} {
+    set itemlist {archive asorttype hsorttype filesort disaglSeparateBox \
+        font autoexpload autoiconify autotick}
+    if {$tcl_platform(os) == "Darwin"} {
+        lappend itemlist MacAssignApp
+    }
+    if {$tcl_platform(platform) == "windows" && \
+            $tcl_platform(os) == "Windows 95"} {
+        lappend itemlist autoGRWND
+    }
+    foreach item $itemlist {
         puts $fp "set expgui($item) [list $expgui($item)]"
     }
@@ -608 +631 @@
 }
 
+# this proc is no longer called, but I am leaving it here as it may 
+# be of use in the future
 proc MakeAppleScript {} {
     global wishshell expgui
@@ -660 +685 @@
     }
 }
+
 # this proc gets called when the export coordinate button is pressed
 # it loads export
@@ -4275 +4301 @@
 
 if {$tcl_platform(os) == "Darwin"} {
-    $expgui(fm).file.menu add command -label "Create AppleScript" -command MakeAppleScript
+#    $expgui(fm).file.menu add command -label "Create AppleScript" -command MakeAppleScript
+    $expgui(fm).option.menu add checkbutton -label "Assign app to .EXP files" \
+        -variable expgui(MacAssignApp)
 }
 $expgui(fm).file.menu add command -label "Exit"  -underline 1 -command catchQuit