Bwidget Source Code
Check-in [133c515858]
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:* 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: 133c515858cfee3d1678cc0c24982b319a3caf62
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
}