Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * buttonbox.tcl: Added a gettags function, which allows the user to query the tags that are used on buttons in the buttonbox. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
133c515858cfee3d1678cc0c24982b31 |
| User & Date: | ericm 1999-10-30 00:31:02 |
Context
|
1999-11-05
| ||
| 03:38 | Changed env(BWIDGET_LIBRARY) to ::BWIDGET::LIBRARY everywhere. This makes BWidgets behave more nicely with tcltest. check-in: 149d9e6ba2 user: ericm tags: trunk, scriptics-sc-1-0-base | |
|
1999-10-30
| ||
| 00:31 | * buttonbox.tcl: Added a gettags function, which allows the user to query the tags that are used on buttons in the buttonbox. check-in: 133c515858 user: ericm tags: trunk | |
|
1999-10-29
| ||
| 21:00 | Fixed font lists on windows. check-in: e33b90fb7b user: ericm tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 |
1999-10-29 Eric Melski <[email protected]> * font.tcl: Added one new flag: -querysystem. This lets the user control whether the font selector queries the system (via font families) for the list of fonts, or if it uses a preset list of fonts (which is much faster and less likely to crash some systems). |
> > > > > |
1 2 3 4 5 6 7 8 9 10 11 12 |
1999-10-29 Eric Melski <[email protected]> * buttonbox.tcl: Added a gettags function, which allows the user to query the tags that are used on buttons in the buttonbox. 1999-10-29 Eric Melski <[email protected]> * font.tcl: Added one new flag: -querysystem. This lets the user control whether the font selector queries the system (via font families) for the list of fonts, or if it uses a preset list of fonts (which is much faster and less likely to crash some systems). |
Changes to buttonbox.tcl.
273 274 275 276 277 278 279 |
variable $path
upvar 0 $path data
Widget::destroy $path
unset data
rename $path {}
}
|
> > > > > > > > > > > > > > > > > > > > |
273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 |
variable $path
upvar 0 $path data
Widget::destroy $path
unset data
rename $path {}
}
# ::ButtonBox::gettags --
#
# Return a list of all the tags on all the buttons in a buttonbox.
#
# Arguments:
# path the buttonbox to query.
#
# Results:
# taglist a list of tags on the buttons in the buttonbox
proc ::ButtonBox::gettags {path} {
upvar ::ButtonBox::$path data
set taglist {}
foreach tag [array names data "tags,*"] {
lappend taglist [string range $tag 5 end]
}
return $taglist
}
|