Changeset 2995 for trunk/gui

Timestamp:

May 2, 2012, 12:13:53 PM (13 years ago)

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• drawingentry.tcl (modified) (1 diff)
• page.tcl (modified) (1 diff)

trunk/gui/scripts/drawingentry.tcl

@@ -327 +327 @@
     } 
     set c $itk_component(drawing)
-    set img [image create photo -file ~/question_mark12.png]
+    set img [image create photo -file [Rappture::icon question_mark12]]
     foreach { x1 y1 } $coords break
     set id [$itk_component(drawing) create image $x1 $y1]

trunk/gui/scripts/page.tcl

@@ -133 +133 @@
                     [itcl::code $this _link $xmlobj $link $w $path.$cname]
             }
-        } elseif {$type == "drawing"} {
-            #
-            # Add <drawing>'s as the central element of the page.
-            #
-            set w "$frame.drawing[incr num]"
-            Rappture::DrawingEntry ::$w $_owner $path.$cname
-            pack $w -expand yes -fill both
-            $_owner widgetfor $path.$cname $w
-            bind $w <<Value>> [list $_owner changed $path.$cname]
-
-            # if there's a default value, load it now
-            if {"" != [$xmlobj element -as type $path.$cname.current]} {
-                set elem $path.$cname.current
-            } else {
-                set elem $path.$cname.default
-            }
-            if {"" != [$xmlobj element -as type $elem]} {
-                set val [$xmlobj get $elem]
-                if {[string length $val] > 0} {
-                    $w value $val
-                    $xmlobj put $path.$cname.current $val
-                } else {
-                    set obj [$xmlobj element -as object $elem]
-                    $w value $obj
-                    $xmlobj put $path.$cname.current $obj
-                }
-            }
         } elseif {$type == "tool"} {
             set service [Rappture::Service ::#auto $_owner $path.$cname]