Changeset 1342 for trunk/gui/scripts/resources.tcl

Timestamp:

Mar 18, 2009, 2:59:21 PM (16 years ago)

Author:

gah

Message:

preliminary HQ output from molvisviewer; unexpand tabs; all jpeg generation at 100%

File:

• trunk/gui/scripts/resources.tcl (modified) (4 diffs)

trunk/gui/scripts/resources.tcl

@@ -28 +28 @@
     variable optionParser [interp create -safe]
     foreach cmd [$optionParser eval {info commands}] {
-        $optionParser hide $cmd
+        $optionParser hide $cmd
     }
     # this lets us ignore unrecognized commands in the file:
@@ -45 +45 @@
     variable optionParser
     foreach {name proc} $args {
-        $optionParser alias $name $proc
+        $optionParser alias $name $proc
     }
 }
@@ -71 +71 @@
     global auto_index
     foreach name [array names auto_index *_init_resources] {
-        eval $name
+        eval $name
     }
 
@@ -80 +80 @@
     #
     if {[info exists env(SESSIONDIR)]} {
-        set file $env(SESSIONDIR)/resources
-        if {![file exists $file]} {
-            return 0
-        }
+        set file $env(SESSIONDIR)/resources
+        if {![file exists $file]} {
+            return 0
+        }
 
-        if {[catch {
-            set fid [open $file r]
-            set info [read $fid]
-            close $fid
-            $optionParser eval $info
-        } result]} {
-            if {"" != $callback} {
-                after 1 [list $callback -title Error -icon error -message "Error in resources file:\n$result"]
-            }
-            return 0
-        }
+        if {[catch {
+            set fid [open $file r]
+            set info [read $fid]
+            close $fid
+            $optionParser eval $info
+        } result]} {
+            if {"" != $callback} {
+                after 1 [list $callback -title Error -icon error -message "Error in resources file:\n$result"]
+            }
+            return 0
+        }
     }
     return 1