head	1.9;
access;
symbols
	core-8-5-9:1.9
	core-8-5-8:1.9
	macosx-cocoa-merge:1.9
	macosx-cocoa-premerge:1.9
	macosx-carbon-freeze:1.9
	core-8-5-7:1.9
	core-8-5-6:1.9
	core-8-6-b1:1.9
	core-8-6-a3:1.9
	core-8-5-5:1.9
	core-8-6-a2:1.9
	core-8-5-4:1.9
	core-8-5-3:1.9
	core-8-6-a1:1.9
	core-8-4-19:1.2.26.2
	core-8-5-branch:1.9.0.2
	core-8-5-2:1.9
	core-8-4-18:1.2.26.2
	core-8-5-1:1.9
	core-8-4-17:1.2.26.2
	core-8-5-0:1.9
	core-8-5-b3:1.8
	core-8-5-b2:1.8
	core-8-4-16:1.2.26.2
	core-8-5-b1:1.6
	core-stablilizer-merge:1.6
	core-stabilizer-branch:1.4.0.2
	core-stabilizer-merge:1.9
	core-8-4-15:1.2
	core-8-5-a6:1.4
	core-8-5-a5:1.4
	core-8-4-14:1.2
	core-8-5-a4:1.4
	core-8-4-13:1.2
	core-8-4-12:1.2
	core-8-4-11:1.2
	core-8-5-a3:1.4
	core-8-4-10:1.2
	core-8-4-9-branch:1.2.0.28
	core-8-5-a2:1.3
	core-8-4-9:1.2
	core-8-4-8:1.2
	core-8-4-7:1.2
	core-8-5-a1:1.3
	core-8-4-6:1.2
	core-8-4-5:1.2
	mistachkin-dev-branch:1.3.0.2
	core-8-4-4:1.2
	core-8-4-3:1.2
	core-8-4-branch:1.2.0.26
	core-8-4-2:1.2
	core-8-4-1:1.2
	core-8-3-5:1.2
	core-8-4-0:1.2
	macosx-8-4-merge-2002-08-31-trunk:1.2
	macosx-8-4-premerge-2002-08-31-branch:1.2
	macosx-8-4-premerge-2002-08-31-trunk:1.2
	macosx-8-4-merge-2002-08-30-branch:1.2
	macosx-8-4-merge-2002-08-30-trunk:1.2
	macosx-8-4-merge-2002-08-20-branch:1.2
	macosx-8-4-merge-2002-08-20-trunk:1.2
	core-8-4-b2:1.2
	core-8-4-b1:1.2
	macosx-premerge-6-9-02:1.2
	core-8-4-a4:1.2
	core-8-3-4:1.2
	macosx-8-4-branch:1.2.0.24
	macosx-8-4-branchpoint:1.2
	core-8-4-a3:1.2
	core-8-3-3:1.2
	dgp-privates-into-namespace:1.2.0.22
	tclpro-1-5-0:1.2
	core-8-4-win-speedup:1.2.0.20
	core-8-4-a2:1.2
	tclpro-1-4-1:1.2
	tclpro-1-4-0:1.2
	core-8-3-2:1.2
	ajuba-ajuba2-2-1-base:1.2
	ajuba-ajuba2-2-0:1.2
	core-8-4-a1:1.2
	core-8-3-1-branch:1.2.0.18
	core-8-3-1:1.2
	scriptics-sc-2-0-b5:1.2
	scriptics-sc-2-0-fixed:1.2
	scriptics-sc-2-0-b2:1.2
	scriptics-sc-2-0-b1:1.2
	core-8-3-0:1.2
	core-8-3-b2:1.2
	core-8-3-b1:1.2
	scriptics-sc-1-1:1.2
	scriptics-sc-1-1-b1:1.2
	core-8-2-3:1.2
	scriptics-sc-1-1-branch:1.2.0.16
	scriptics-sc-1-1-base:1.2
	scriptics-sc-1-0:1.2
	scriptics-sc-1-0-branch:1.2.0.14
	scriptics-sc-1-0-base:1.2
	core-8-2-2:1.2
	core-8-2-1:1.2
	scriptics-bc-1-0-b1:1.2
	core-8-2-1-branch:1.2.0.12
	scriptics-tclpro-1-3-0:1.2
	core-8-2-0:1.2
	core-8-2-b3-branch:1.2.0.10
	core-8-2-b3-base:1.2
	scriptics-tclpro-1-3-b4:1.2
	core-8-2-b2:1.2
	scriptics-tclpro-1-3-b3:1.2
	core-8-2-b1:1.2
	scriptics-tclpro-1-3-b2:1.2
	merge-to-mainline-5/21/99:1.2
	scriptics-tclpro-1-3-b2-branch:1.2.0.8
	core-8-1-1:1.2
	scriptics-tclpro-1-3-b1:1.2
	core-8-1-1-base:1.2
	core-8-1-0:1.2
	merge-to-mainline-4-29-99:1.2
	merge-to-mainline-4-23-99:1.2
	core-8-1-branch-old:1.1.0.4
	core-8-0-6-branch:1.2.0.6
	core-8-0-6-base:1.2
	core-8-0-5:1.2
	core-8-1-b3:1.1.4.1
	core-8-1-b2:1.1.4.1
	dev-8-1-stubs-branch:1.1.4.1.0.2
	dev-stubs-branch:1.2.0.4
	scriptics-tclpro-1-2:1.2
	scriptics-tclpro-1-2-b2:1.2
	core-8-1-merge-2/10/99:1.2
	core-8-0-5-branch:1.2.0.2
	core-8-0-5-base:1.2
	scriptics-tclpro-1-2-b1:1.2
	scriptics-tclpro-1-2-a1:1.2
	core-8-1-b1:1.1.4.1
	core-8-0-4:1.2
	core-8-1-a2:1.1
	core-8-0-2:1.1
	core-8-0-3:1.2;
locks; strict;
comment	@# @;


1.9
date	2007.12.13.15.27.07;	author dgp;	state Exp;
branches;
next	1.8;

1.8
date	2007.10.17.18.21.49;	author das;	state Exp;
branches;
next	1.7;

1.7
date	2007.10.15.21.06.16;	author dkf;	state Exp;
branches;
next	1.6;

1.6
date	2007.05.30.13.23.49;	author das;	state Exp;
branches;
next	1.5;

1.5
date	2007.05.30.06.34.18;	author das;	state Exp;
branches;
next	1.4;

1.4
date	2004.12.21.11.56.35;	author dkf;	state Exp;
branches
	1.4.2.1;
next	1.3;

1.3
date	2003.08.20.23.02.18;	author hobbs;	state Exp;
branches;
next	1.2;

1.2
date	98.09.14.18.23.27;	author stanton;	state Exp;
branches
	1.2.26.1;
next	1.1;

1.1
date	98.04.01.09.54.21;	author rjohnson;	state Exp;
branches
	1.1.4.1;
next	;

1.1.4.1
date	98.09.30.02.17.42;	author stanton;	state Exp;
branches;
next	;

1.2.26.1
date	2007.05.30.06.37.03;	author das;	state Exp;
branches;
next	1.2.26.2;

1.2.26.2
date	2007.05.30.13.24.01;	author das;	state Exp;
branches;
next	;

1.4.2.1
date	2007.05.30.13.47.42;	author dgp;	state Exp;
branches;
next	1.4.2.2;

1.4.2.2
date	2007.10.16.04.03.53;	author dgp;	state Exp;
branches;
next	1.4.2.3;

1.4.2.3
date	2007.10.19.14.35.33;	author dgp;	state Exp;
branches;
next	;


desc
@@


1.9
log
@merge stable branch onto HEAD
@
text
@# button.tcl --
#
# This demonstration script creates a toplevel window containing
# several button widgets.
#
# RCS: @@(#) $Id: button.tcl,v 1.4.2.3 2007/10/19 14:35:33 dgp Exp $

if {![info exists widgetDemo]} {
    error "This script should be run from the \"widget\" demo."
}

package require Tk

set w .button
catch {destroy $w}
toplevel $w
wm title $w "Button Demonstration"
wm iconname $w "button"
positionWindow $w

label $w.msg -font $font -wraplength 4i -justify left -text "If you click on any of the four buttons below, the background of the button area will change to the color indicated in the button.  You can press Tab to move among the buttons, then press Space to invoke the current button."
pack $w.msg -side top

## See Code / Dismiss buttons
pack [addSeeDismiss $w.buttons $w] -side bottom -fill x

proc colorrefresh {w col} {
    $w configure -bg $col
    if {[tk windowingsystem] eq "aqua"} {
	# set highlightbackground of all buttons in $w
	set l [list $w]
	while {[llength $l]} {
	    set l [concat [lassign $l b] [winfo children $b]]
	    if {[winfo class $b] eq "Button"} {
		$b configure -highlightbackground $col
	    }
	}
    }
}

button $w.b1 -text "Peach Puff" -width 10 \
    -command [list colorrefresh $w PeachPuff1]
button $w.b2 -text "Light Blue" -width 10 \
    -command [list colorrefresh $w LightBlue1]
button $w.b3 -text "Sea Green" -width 10 \
    -command [list colorrefresh $w SeaGreen2]
button $w.b4 -text "Yellow" -width 10 \
    -command [list colorrefresh $w Yellow1]
pack $w.b1 $w.b2 $w.b3 $w.b4 -side top -expand yes -pady 2
@


1.8
log
@	* library/demos/widget:		Aqua GOOBE, cleanup icons.
	* library/demos/ttkbut.tcl:

	* library/demos/button.tcl:	restore setting of button
					highlightbackground on Aqua.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.7 2007/10/15 21:06:16 dkf Exp $
@


1.7
log
@GOOBE work on the widget demo, plus a new demo of text widget peering.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.6 2007/05/30 13:23:49 das Exp $
d29 10
@


1.6
log
@replace previous inoperative commit with direct setting of highlightbackground on all buttons
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.5 2007/05/30 06:34:18 das Exp $
d25 1
a25 2
set btns [addSeeDismiss $w.buttons $w]
pack $btns -side bottom -fill x
a28 11
    $w.buttons configure -bg $col
    if {[tk windowingsystem] eq "aqua"} {
	# set highlightbackground of all buttons in $w
	set l [list $w]
	while {[llength $l]} {
	    set l [concat [lassign $l b] [winfo children $b]]
	    if {[winfo class $b] eq "Button"} {
		$b configure -highlightbackground $col
	    }
	}
    }
@


1.5
log
@	* library/bgerror.tcl:	standardize dialog option & button size
	* library/dialog.tcl:	modifications done when running on on Aqua.
	* library/msgbox.tcl:

	* library/demos/button.tcl: set button highlightbackground on Aqua.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
d32 8
a39 1
	$w.buttons configure -highlightbackground $col
@


1.4
log
@Coding style improvements for the widget demo. [FRQ 815118]
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.3 2003/08/20 23:02:18 hobbs Exp $
d31 3
@


1.4.2.1
log
@merge updates from HEAD
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.6 2007/05/30 13:23:49 das Exp $
a30 10
    if {[tk windowingsystem] eq "aqua"} {
	# set highlightbackground of all buttons in $w
	set l [list $w]
	while {[llength $l]} {
	    set l [concat [lassign $l b] [winfo children $b]]
	    if {[winfo class $b] eq "Button"} {
		$b configure -highlightbackground $col
	    }
	}
    }
@


1.4.2.2
log
@merge updates from HEAD
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.4.2.1 2007/05/30 13:47:42 dgp Exp $
d25 2
a26 1
pack [addSeeDismiss $w.buttons $w] -side bottom -fill x
d30 11
@


1.4.2.3
log
@merge updates from HEAD
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.4.2.2 2007/10/16 04:03:53 dgp Exp $
a28 10
    if {[tk windowingsystem] eq "aqua"} {
	# set highlightbackground of all buttons in $w
	set l [list $w]
	while {[llength $l]} {
	    set l [concat [lassign $l b] [winfo children $b]]
	    if {[winfo class $b] eq "Button"} {
		$b configure -highlightbackground $col
	    }
	}
    }
@


1.3
log
@	* library/demos/widget:      Redo code view dialog, use named fonts,
	* library/demos/arrow.tcl:   add basic see/dismiss routine with
	* library/demos/bind.tcl:    images for better look & feel
	* library/demos/bitmap.tcl:
	* library/demos/button.tcl:
	* library/demos/check.tcl:
	* library/demos/clrpick.tcl:
	* library/demos/colors.tcl:
	* library/demos/cscroll.tcl:
	* library/demos/ctext.tcl:
	* library/demos/entry1.tcl:
	* library/demos/entry2.tcl:
	* library/demos/entry3.tcl:
	* library/demos/filebox.tcl:
	* library/demos/floor.tcl:
	* library/demos/form.tcl:
	* library/demos/hscale.tcl:
	* library/demos/icon.tcl:
	* library/demos/image1.tcl:
	* library/demos/image2.tcl:
	* library/demos/items.tcl:
	* library/demos/label.tcl:
	* library/demos/labelframe.tcl:
	* library/demos/menu.tcl:
	* library/demos/menubu.tcl:
	* library/demos/paned1.tcl:
	* library/demos/paned2.tcl:
	* library/demos/plot.tcl:
	* library/demos/puzzle.tcl:
	* library/demos/radio.tcl:
	* library/demos/ruler.tcl:
	* library/demos/sayings.tcl:
	* library/demos/search.tcl:
	* library/demos/spin.tcl:
	* library/demos/states.tcl:
	* library/demos/style.tcl:
	* library/demos/text.tcl:
	* library/demos/twind.tcl:
	* library/demos/unicodeout.tcl:
	* library/demos/vscale.tcl:
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.2 1998/09/14 18:23:27 stanton Exp $
d12 2
@


1.2
log
@Replaced SCCS strings, fixed binary files
@
text
@d6 1
a6 1
# RCS: @@(#) $Id$
d22 8
a29 5
frame $w.buttons
pack $w.buttons -side bottom -fill x -pady 2m
button $w.buttons.dismiss -text Dismiss -command "destroy $w"
button $w.buttons.code -text "See Code" -command "showCode $w"
pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
d32 1
a32 1
    -command "$w config -bg PeachPuff1; $w.buttons config -bg PeachPuff1"
d34 1
a34 1
    -command "$w config -bg LightBlue1; $w.buttons config -bg LightBlue1"
d36 1
a36 1
    -command "$w config -bg SeaGreen2;  $w.buttons config -bg SeaGreen2"
d38 1
a38 1
    -command "$w config -bg Yellow1;    $w.buttons config -bg Yellow1"
@


1.2.26.1
log
@	* library/bgerror.tcl:	standardize dialog option & button size
	* library/dialog.tcl:	modifications done when running on on Aqua.
	* library/msgbox.tcl:

	* library/demos/button.tcl: set button highlightbackground on Aqua.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.2 1998/09/14 18:23:27 stanton Exp $
a27 8
proc colorrefresh {w col} {
    $w configure -bg $col
    $w.buttons configure -bg $col
    if {[tk windowingsystem] eq "aqua"} {
	$w.buttons configure -highlightbackground $col
    }
}

d29 1
a29 1
    -command [list colorrefresh $w PeachPuff1]
d31 1
a31 1
    -command [list colorrefresh $w LightBlue1]
d33 1
a33 1
    -command [list colorrefresh $w SeaGreen2]
d35 1
a35 1
    -command [list colorrefresh $w Yellow1]
@


1.2.26.2
log
@replace previous inoperative commit with direct setting of highlightbackground on all buttons
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.2.26.1 2007/05/30 06:37:03 das Exp $
d32 1
a32 8
	# set highlightbackground of all buttons in $w
	set l [list $w]
	while {[llength $l]} {
	    set l [concat [lrange $l 1 end] [winfo children [set b [lindex $l 0]]]]
	    if {[winfo class $b] eq "Button"} {
		$b configure -highlightbackground $col
	    }
	}
@


1.1
log
@Initial revision
@
text
@d6 1
a6 1
# SCCS: @@(#) button.tcl 1.5 97/03/02 16:19:39
@


1.1.4.1
log
@Merged 8.0.3 changes into 8.1
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: button.tcl,v 1.2 1998/09/14 18:23:27 stanton Exp $
@


