Bwidget Source Code
Check-in [e1a66296d3]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed undefined variable
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: e1a66296d30e7a74877352e075b23876305e84bb
User & Date: oehhar 2013-09-11 16:23:30
Context
2013-09-15
17:39
BWidget 1.9.7 tagged check-in: f17c6bce83 user: oehhar tags: bwidget
2013-09-11
16:23
Fixed undefined variable check-in: e1a66296d3 user: oehhar tags: bwidget
16:20
xpm2image.tcl: many issues fixed in xpm import by Mattias Hembruch. Ticket [9a8b2ee42e] check-in: f7299663b4 user: oehhar tags: bwidget
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to xpm2image.tcl.

69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
            set data(color-$cname) $color
            set data(cname-$color) $cname
            lappend data(colors) $color
            break
        }
    }
    if { ![info exists data(color-$cname)] } {
        error "color definition {$line} in $file failed to define a color"
    }
}

proc xpm-to-image { file } {
    set f [open $file]
    set string [read $f]
    close $f






|







69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
            set data(color-$cname) $color
            set data(cname-$color) $cname
            lappend data(colors) $color
            break
        }
    }
    if { ![info exists data(color-$cname)] } {
        error "color definition {$line} failed to define a color"
    }
}

proc xpm-to-image { file } {
    set f [open $file]
    set string [read $f]
    close $f