Changeset 3182 for trunk


Ignore:
Timestamp:
Oct 8, 2012 3:05:36 PM (9 years ago)
Author:
gah
Message:
 
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/drawingentry.tcl

    r3177 r3182  
    106106    itk_component add drawing {
    107107        canvas $itk_interior.canvas -background white -relief sunken -bd 1 \
    108             -width 800 -height 600
     108            -width 400 -height 300
    109109    } {
    110110        ignore -background
     
    460460    set contents [XmlGetSubst $cpath.contents]
    461461    set img ""
    462     if { [string compare -length 5 $contents "file:"] == 0 } {
     462    if { [string compare -length 7 $contents "file://"] == 0 } {
    463463        set fileName [string range $contents 5 end]
    464464        if { [file exists $fileName] } {
    465465            set img [image create photo -file $fileName]
    466466        }
    467     } elseif { [string compare -length 5 $contents "http:"] == 0 } {
     467    } elseif { [string compare -length 7 $contents "http://"] == 0 } {
    468468        puts stderr  "don't know how to handle http"
    469469        return
     
    758758        set _drawingWidth $sw
    759759    } else {
    760         set sh [expr int($_canvaseHeight / $wanted)]
     760        set sh [expr int($_canvasHeight / $wanted)]
    761761        if { $sh < 1 }  {
    762762            set sh 1
  • trunk/lang/tcl/scripts/exec.tcl

    r3177 r3182  
     1
    12# ----------------------------------------------------------------------
    23#  COMPONENT: exec - simple way to exec with streaming output
Note: See TracChangeset for help on using the changeset viewer.