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

Timestamp:

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

Author:

gah

Message:

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

File:

• trunk/gui/scripts/image.tcl (modified) (3 diffs)

trunk/gui/scripts/image.tcl

@@ -35 +35 @@
 itcl::body Rappture::Image::constructor {xmlobj path} {
     if {![Rappture::library isvalid $xmlobj]} {
-        error "bad value \"$xmlobj\": should be LibraryObj"
+        error "bad value \"$xmlobj\": should be LibraryObj"
     }
     set _xmlobj $xmlobj
@@ -41 +41 @@
     set data [string trim [$xmlobj get $path.current]]
     if {[string length $data] == 0} {
-        set _image [image create photo]
+        set _image [image create photo]
     } else {
-        set _image [image create photo -data $data]
+        set _image [image create photo -data $data]
     }
 
@@ -66 +66 @@
 itcl::body Rappture::Image::hints {{keyword ""}} {
     if {$keyword != ""} {
-        if {[info exists _hints($keyword)]} {
-            return $_hints($keyword)
-        }
-        return ""
+        if {[info exists _hints($keyword)]} {
+            return $_hints($keyword)
+        }
+        return ""
     }
     return [array get _hints]