arcadia 0.9.3 → 0.10.0

data/tcl/anigif/pkgIndex.tcl

@@ -0,0 +1,3 @@
+# pkgIndex for AniGif 1.3
+
+package ifneeded anigif 1.3 [list source [file join $dir anigif.tcl]]

data/tcl/{BWidget-1.9.2 → bwidget-1.9.4}/BWman/Button.html

@@ -11,6 +11,7 @@
 </DL>
 <DL>
 <DT><I>STANDARD OPTIONS</I></DT>
+<DT><I>Not themed</I></DT>
 <DD><TABLE CELLSPACING=0 CELLSPACING=0 BORDER=0>
 <TR>
 <TD>&nbsp;&nbsp;<A HREF="options.htm#M-activebackground">-activebackground</A></TD>
@@ -59,6 +60,27 @@
 <TR>
 <TD>&nbsp;&nbsp;<A HREF="options.htm#M-wraplength">-wraplength</A></TD>
 </TABLE></DD>
+<DT><I>Themed</I></DT>
+<DD><TABLE CELLSPACING=0 CELLSPACING=0 BORDER=0>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-compound">-compound</A></TD>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-cursor">-cursor</A></TD>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-image">-image</A></TD>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-style">-style</A></TD>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-repeatdelay">-repeatdelay</A></TD>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-repeatinterval">-repeatinterval</A></TD>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-takefocus">-takefocus</A></TD>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-text">-text</A></TD>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-textvariable">-textvariable</A></TD>
+</TABLE></DD>
 </DL>
 <DL>
 <DT><I><A HREF="#wso">WIDGET-SPECIFIC OPTIONS</A></I></DT>
@@ -161,7 +183,8 @@ If an image or bitmap is being displayed in the Button then the value is in
 screen units;
 for text it is in lines of text.
 If this option isn't specified, the Button's desired height is computed
-from the size of the image or bitmap or text being displayed in it.
+from the size of the image or bitmap or text being displayed in it.<BR>
+Option not available when widget is <I>themed</I>.
 </DD>
 </DL>
 <DL><DT><A NAME="-helptext"><B>-helptext</B></A></DT>
@@ -197,7 +220,9 @@ are extracted from its value.
 
 Specifies the 3-D effect desired for the widget. Acceptable values are standard values for
 button relief (<B>raised</B>, <B>sunken</B>, <B>flat</B>, <B>ridge</B>, <B>solid</B>, and <B>groove</B>) and <B>link</B>, which specifies that button relief is <B>flat</B> when pointer
-is outside the button and <B>raised</B> when pointer is inside.
+is outside the button and <B>raised</B> when pointer is inside.<BR>
+This option has only the following effect if the widget is <I>themed</I>:
+The value <B>link</B> used a style <B>Toolbutton</B> while any other value uses the standard effect.
 </DD>
 </DL>
 <DL><DT><A NAME="-state"><B>-state</B></A></DT>
@@ -269,5 +294,14 @@ Button is redisplayed with active color and sunken relief, and
 normal color and its defined relief, and <B>disarmcommand</B> then <B>command</B>
 are called.
 <P><B>invoke</B> is called when Button has input focus and user press the space bar.
+
+</DD></DL>
+<HR WIDTH="50%"><BR>
+<B><A NAME="wc">BINDINGS</A></B><BR>
+<DL><DT><A NAME="Invoke"><I>&lt;&lt;Invoke&gt;&gt;</I></A>
+</DT><DD>
+
+Invoke the <B>invoke</B> widget command.
 </DD></DL>
+<HR WIDTH="50%"><BR>
 </BODY></HTML>

data/tcl/{BWidget-1.9.2 → bwidget-1.9.4}/BWman/ButtonBox.html

@@ -17,15 +17,15 @@
 <TD>&nbsp;&nbsp;<A HREF="#-default">-default</A></TR>
 </TR>
 <TR>
-<TD>&nbsp;&nbsp;<A HREF="#-homogeneous">-homogeneous</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-homogeneous">-homogeneous</A></TD>
 <TD>&nbsp;&nbsp;<A HREF="#-orient">-orient</A></TR>
 </TR>
 <TR>
-<TD>&nbsp;&nbsp;<A HREF="#-padx">-padx</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-padx">-padx</A></TD>
 <TD>&nbsp;&nbsp;<A HREF="#-pady">-pady</A></TR>
 </TR>
 <TR>
-<TD>&nbsp;&nbsp;<A HREF="#-spacing">-spacing</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-spacing">-spacing</A></TD>
 <TD>&nbsp;&nbsp;<A HREF="#-state">-state</A></TR>
 </TABLE></DD>
 </DL>
@@ -103,7 +103,8 @@ Indicates the button whose <b>-text</b> option is <i>text</i>.
 <DL><DT><A NAME="-background"><B>-background</B></A></DT>
 <DD>
 
-Specifies a default background color for all added buttons and for the frame.
+Specifies a default background color for all added buttons and for the frame.<BR>
+For <I>themed</I> wigets, the button color is not set.
 
 </DD>
 </DL>
@@ -139,14 +140,15 @@ If this option is <B>vertical</B>, buttons are added from left to right.
 <DL><DT><A NAME="-padx"><B>-padx</B></A></DT>
 <DD>
 
-Specifies a default value for the -padx option of all added buttons.
-
+Specifies a default value for the -padx option of all added buttons.<BR>
+Option has no effect for <I>themed</I> wigets.
 </DD>
 </DL>
 <DL><DT><A NAME="-pady"><B>-pady</B></A></DT>
 <DD>
 
-Specifies a default value for the -pady option of all added buttons.
+Specifies a default value for the -pady option of all added buttons.<BR>
+Option has no effect for <I>themed</I> wigets.
 
 </DD>
 </DL>

data/tcl/{BWidget-1.9.2 → bwidget-1.9.4}/BWman/Dialog.html

@@ -33,8 +33,7 @@
 </TR>
 <TR>
 
-<TD>&nbsp;&nbsp;<A HREF="#-buttonwidth">-buttonwidth</A></TR>
-<TD>&nbsp;&nbsp;<A HREF="#-cancel">-cancel</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-cancel">-cancel</A></TD>
 </TR>
 <TR>
 <TD>&nbsp;&nbsp;<A HREF="#-default">-default</A></TR>
@@ -139,18 +138,13 @@ Specifies a bitmap to display at the left of the user frame.
 <B>image</B> option override <B>bitmap</B>.
 </DD>
 </DL>
-<DL><DT><A NAME="-buttonwidth"><B>-buttonwidth (read-only)</B></A></DT>
-<DD>
-
-Specifies the width of the buttons as specified for the option <B>width</B>
-of the <B>button</b> widget.
-</DD>
-</DL>
 <DL><DT><A NAME="-cancel"><B>-cancel</B></A></DT>
 <DD>
 
-Specifies the number of the cancel button of the Dialog. When user press Esc in the Dialog,
-this button is invoked.
+Specifies the number of the cancel button of the Dialog. When user presses Esc or the windows close button,
+this button is invoked.<BR>
+If set to <B>-1</B>, Esc does not invoke anything.
+The window close button <I>destroys</I> the dialog in this case and returns <B>-1</B>.
 </DD>
 </DL>
 <DL><DT><A NAME="-default"><B>-default</B></A></DT>

data/tcl/{BWidget-1.9.2 → bwidget-1.9.4}/BWman/Label.html

@@ -11,6 +11,7 @@
 </DL>
 <DL>
 <DT><I>STANDARD OPTIONS</I></DT>
+<DT><I>Not themed</I></DT>
 <DD><TABLE CELLSPACING=0 CELLSPACING=0 BORDER=0>
 <TR>
 <TD>&nbsp;&nbsp;<A HREF="options.htm#M-anchor">-anchor</A></TR>
@@ -53,6 +54,35 @@
 <TD>&nbsp;&nbsp;<A HREF="options.htm#M-wraplength">-wraplength</A></TR>
 </TR>
 </TABLE></DD>
+<DT><I>Themed</I></DT>
+<DD><TABLE CELLSPACING=0 CELLSPACING=0 BORDER=0>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-anchor">-anchor</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-background">-background or -bg</A></TD>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-cursor">-cursor</A></TD></TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-font">-font</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-foreground">-foreground or -fg</A></TD>
+</TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-image">-image</A></TR>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-justify">-justify</A></TD>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-relief">-relief</A></TD>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-takefocus">-takefocus</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-text">-text</A></TR>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-textvariable">-textvariable</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-wraplength">-wraplength</A></TR>
+</TR>
+</TABLE></DD>
 </DL>
 <DL>
 <DT><I><A HREF="#wso">WIDGET-SPECIFIC OPTIONS</A></I></DT>
@@ -237,7 +267,8 @@ Specifies a desired height for the label.
 If an image or bitmap is being displayed in the label then the value is in
 screen units, for text it is in lines of text.
 If this option isn't specified, the label's desired height is computed
-from the size of the image or bitmap or text being displayed in it.
+from the size of the image or bitmap or text being displayed in it.<BR>
+Option not available for <I>themed</I> widgets.
 </DD>
 </DL>
 <DL><DT><A NAME="-helptext"><B>-helptext</B></A></DT>

data/tcl/{BWidget-1.9.2 → bwidget-1.9.4}/BWman/ScrolledWindow.html

@@ -11,6 +11,7 @@
 </DL>
 <DL>
 <DT><I>STANDARD OPTIONS</I></DT>
+<DT><I>Not themed</I></DT>
 <DD><TABLE CELLSPACING=0 CELLSPACING=0 BORDER=0>
 <TR>
 <TD>&nbsp;&nbsp;<A HREF="options.htm#M-background">-background or -bg</A></TD>
@@ -19,6 +20,16 @@
 <TR>
 <TD>&nbsp;&nbsp;<A HREF="options.htm#M-relief">-relief</A></TR>
 </TABLE></DD>
+<DT><I>Themed</I></DT>
+<DD><TABLE CELLSPACING=0 CELLSPACING=0 BORDER=0>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-borderwidth">-borderwidth or -bd</A></TD>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-relief">-relief</A></TD>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;(<B>-bg</B> has no effect)</TD>
+</TR>
+</TABLE></DD>
 </DL>
 <DL>
 <DT><I><A HREF="#wso">WIDGET-SPECIFIC OPTIONS</A></I></DT>
@@ -100,7 +111,8 @@ Possible values are: <B>ne</B>, <B>en</B>, <B>nw</B>, <B>wn</B>, <B>se</B> (defa
 <DD>
 
 Size of the scrollbars in pixels.
-Use </B>0</B> for standard size (default value).
+Use </B>0</B> for standard size (default value).<BR>
+This option has no effect if widget is <I>themed</I>.
 </DD>
 </DL>
 <HR WIDTH="50%"><BR>

data/tcl/{BWidget-1.9.2 → bwidget-1.9.4}/BWman/contents.html

@@ -81,4 +81,15 @@ LabelFrame containing an Entry widget.
 <TR><TD><A HREF="BWidget.html">BWidget</A></TD>
 <TD>Description text</TD></TR>
 </TABLE>
-</DD></BODY></HTML>
+</DD>
+
+<BR><HR><BR><B>Load BWidget</B><BR><BR>
+
+Possible load sequence:
+<pre>
+# If package msgcat is available, its locale is used for BWidget
+package require msgcat
+# load BWidget
+package require BWidget
+</pre>
+</BODY></HTML>

data/tcl/{BWidget-1.9.2 → bwidget-1.9.4}/ChangeLog

@@ -1,3 +1,73 @@
+2010-01-17 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* pkgIndex.tcl: corrected package version in package provide
+
+2010-12-14 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	**** BWidget 1.9.4 tagged ****
+
+2010-12-14  Andreas Kupries  <andreask@activestate.com>
+
+	* tree.tcl [Bug 3106208]: Followup. Moved the fixed code of the
+	last entry I did (2010-11-09) into a new command Tree::MergeFlag
+	and call this from both Tree::itemconfigure and Tree::insert.
+	Missing the place in Tree::insert caused another problem, found by
+	Dustin Littau.
+
+2010-11-05 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	**** BWidget 1.9.3 tagged ****
+
+2010-11-23 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* scrollw.tcl Add theming support for ScrolledWindow widget.
+	* ScrolledWindow.html Themed mode documented.
+
+2010-11-21 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* label.tcl Add theming support for Label widget.
+	* label.html Themed mode documented.
+
+2010-11-16 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* button.tcl Add theming support for Button widget.
+	Option "-relief link" is mapped to "Toolbutton style.
+	Option -height is not available when themed.
+	Thanks to Kevin Walzer for the test on MacOS.
+	* buttonbox.tcl When themed, only set themed button options.
+	The widget itself is not jet themed.
+	* Dialog.html Removed documentation of unavailable option -buttonwidth.
+
+2010-11-09  Andreas Kupries  <andreask@activestate.com>
+
+	* tree.tcl (Tree::itemconfigure): Fix intermingling of node names
+	and flag values which can cause an lsearch to fail, by mistaking a
+	flag value as the node searched for, and then treating a node name
+	as flags. As the upd,nodes value is a dictionary it should not be
+	search as a list. Now using a temporary array for quicker check
+	and append/replace [Bug 3106208].
+
+2010-11-09 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* mainframe.tcl Menu text shows white on white on Mac aqua
+	[Bug 3105665] reported by Scott Smedley fixed by Kevin Walzer.
+
+2010-10-15 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* label.tcl The frame surround the label gets under
+	unknown conditions a -padx 5. A pad of 0 is now
+	hard coded (Bug 3087955)
+
+2010-08-04 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* dialog.tcl Changed behaviour of window close button.
+	If -cancel is given, this button is invoked.
+	The cancel option may now be changed using the configure
+	method.
+
+	* init.tcl If msgcat is available use its locale to load
+	a lang/*.rc file instead always using en.rc.
+
 2010-06-09 Harald Oehlmann <oehhar@users.sourceforge.net>
 
 	* Included lang/pl.rc from HEAD.

data/tcl/{BWidget-1.9.2 → bwidget-1.9.4}/button.tcl

@@ -53,6 +53,7 @@ namespace eval Button {
     bind BwButton <ButtonRelease-1> {Button::_release %W}
     bind BwButton <Key-space>       {Button::invoke %W; break}
     bind BwButton <Return>          {Button::invoke %W; break}
+    bind BwButton <<Invoke>> 	    {Button::invoke %W; break}
     bind BwButton <Destroy>         {Widget::destroy %W}
 }
 
@@ -63,14 +64,14 @@ namespace eval Button {
 proc Button::create { path args } {
     array set maps [list Button {} :cmd {}]
     array set maps [Widget::parseArgs Button $args]
-    eval [concat [list button $path] $maps(:cmd)]
+    if {$::Widget::_theme} {
+        eval [concat [list ttk::button $path] $maps(:cmd)]
+    } else {
+        eval [concat [list button $path] $maps(:cmd)]
+    }
     Widget::initFromODB Button $path $maps(Button)
 
     # Do some extra configuration on the button
-    set relief [Widget::getMegawidgetOption $path -relief]
-    if { [string equal $relief "link"] } {
-        set relief "flat"
-    }
     set var [Widget::getMegawidgetOption $path -textvariable]
     set st [Widget::getMegawidgetOption $path -state]
     if {  ![string length $var] } {
@@ -90,8 +91,20 @@ proc Button::create { path args } {
         Widget::configure $path [list -underline $under]
     }
 
-    $path configure -relief $relief -text $text -underline $under \
-	    -textvariable $var -state $st
+    $path configure -text $text -underline $under \
+        -textvariable $var -state $st
+    # Map relief flat on Toolbutton for ttk
+    set relief [Widget::getMegawidgetOption $path -relief]
+    if {$::Widget::_theme} {
+        if { [string equal $relief "link"] } {
+            $path configure -style Toolbutton
+        }
+    } else {
+        if { [string equal $relief "link"] } {
+            set relief "flat"
+        }
+        $path configure -relief $relief
+    }
     bindtags $path [list $path BwButton [winfo toplevel $path] all]
 
     set accel1 [string tolower [string index $text $under]]
@@ -123,24 +136,33 @@ proc Button::configure { path args } {
 
     # Extract all the modified bits we're interested in
     foreach {cr cs cv cn ct cu} [Widget::hasChangedX $path \
-	    -relief -state -textvariable -name -text -underline] break
+        -relief -state -textvariable -name -text -underline] break
     if { $cr || $cs } {
-	set relief [Widget::cget $path -relief]
-	set state  [Widget::cget $path -state]
-        if { [string equal $relief "link"] } {
-            if { [string equal $state "active"] } {
-                set relief "raised"
-            } else {
-                set relief "flat"
-            }
-        }
-        $path:cmd configure -relief $relief -state $state
+        set relief [Widget::cget $path -relief]
+        set state  [Widget::cget $path -state]
+        if { $::Widget::_theme} {
+			if { [string equal $relief "link"] } {
+				$path:cmd configure -style Toolbutton
+			} else {
+				$path:cmd configure -style ""
+			}
+		} else {
+			if { [string equal $relief "link"] } {
+				if { [string equal $state "active"] } {
+					set relief "raised"
+				} else {
+					set relief "flat"
+				}
+			}
+			$path:cmd configure -relief $relief
+		}
+		$path:cmd configure -state $state
     }
 
     if { $cv || $cn || $ct || $cu } {
-	set var		[Widget::cget $path -textvariable]
-	set text	[Widget::cget $path -text]
-	set under	[Widget::cget $path -underline]
+        set var		[Widget::cget $path -textvariable]
+        set text	[Widget::cget $path -text]
+        set under	[Widget::cget $path -underline]
         if {  ![string length $var] } {
             set desc [BWidget::getname [Widget::cget $path -name]]
             if { [llength $desc] } {
@@ -178,37 +200,68 @@ proc Button::cget { path option } {
 }
 
 
+# ----------------------------------------------------------------------------
+#  Command Button::identify
+# ----------------------------------------------------------------------------
+proc Button::identify { path args } {
+    eval $path:cmd identify $args
+}
+
+
+# ----------------------------------------------------------------------------
+#  Command Button::instate
+# ----------------------------------------------------------------------------
+proc Button::instate { path args } {
+    eval $path:cmd instate $args
+}
+
+
+# ----------------------------------------------------------------------------
+#  Command Button::state
+# ----------------------------------------------------------------------------
+proc Button::state { path args } {
+    eval $path:cmd state $args
+}
+
+
 # ----------------------------------------------------------------------------
 #  Command Button::invoke
 # ----------------------------------------------------------------------------
 proc Button::invoke { path } {
     if { ![string equal [$path:cmd cget -state] "disabled"] } {
-	$path:cmd configure -state active -relief sunken
-	update idletasks
-	set cmd [Widget::getMegawidgetOption $path -armcommand]
+        if { $::Widget::_theme} {
+            $path:cmd configure -state active
+			$path:cmd state pressed
+        } else {
+            $path:cmd configure -state active -relief sunken
+        }
+        update idletasks
+        set cmd [Widget::getMegawidgetOption $path -armcommand]
         if { $cmd != "" } {
             uplevel \#0 $cmd
         }
-	after 100
-        set relief [Widget::getMegawidgetOption $path -relief]
-        if { [string equal $relief "link"] } {
-            set relief flat
+        after 100
+        $path:cmd configure -state [Widget::getMegawidgetOption $path -state]
+        if { $::Widget::_theme} {
+            $path:cmd state !pressed
+        } else {
+            set relief [Widget::getMegawidgetOption $path -relief]
+            if { [string equal $relief "link"] } {
+                set relief flat
+            }
+            $path:cmd configure -relief $relief
         }
-	$path:cmd configure \
-            -state  [Widget::getMegawidgetOption $path -state] \
-            -relief $relief
-	set cmd [Widget::getMegawidgetOption $path -disarmcommand]
+        set cmd [Widget::getMegawidgetOption $path -disarmcommand]
         if { $cmd != "" } {
             uplevel \#0 $cmd
         }
-	set cmd [Widget::getMegawidgetOption $path -command]
+        set cmd [Widget::getMegawidgetOption $path -command]
         if { $cmd != "" } {
             uplevel \#0 $cmd
         }
     }
 }
 
-
 # ----------------------------------------------------------------------------
 #  Command Button::_enter
 # ----------------------------------------------------------------------------
@@ -219,10 +272,14 @@ proc Button::_enter { path } {
     set _current $path
     if { ![string equal [$path:cmd cget -state] "disabled"] } {
         $path:cmd configure -state active
-        if { $_pressed == $path } {
-            $path:cmd configure -relief sunken
-        } elseif { [string equal [Widget::cget $path -relief] "link"] } {
-            $path:cmd configure -relief raised
+        if { $::Widget::_theme } {
+            # $path:cmd state active
+        } else {
+            if { $_pressed == $path } {
+                $path:cmd configure -relief sunken
+            } elseif { [string equal [Widget::cget $path -relief] "link"] } {
+                $path:cmd configure -relief raised
+            }
         }
     }
 }
@@ -238,14 +295,17 @@ proc Button::_leave { path } {
     set _current ""
     if { ![string equal [$path:cmd cget -state] "disabled"] } {
         $path:cmd configure -state [Widget::cget $path -state]
-        set relief [Widget::cget $path -relief]
-        if { $_pressed == $path } {
-            if { [string equal $relief "link"] } {
-                set relief raised
+        if { $::Widget::_theme } {
+        } else {
+            set relief [Widget::cget $path -relief]
+            if { $_pressed == $path } {
+                if { [string equal $relief "link"] } {
+                    set relief raised
+                }
+                $path:cmd configure -relief $relief
+            } elseif { [string equal $relief "link"] } {
+                $path:cmd configure -relief flat
             }
-            $path:cmd configure -relief $relief
-        } elseif { [string equal $relief "link"] } {
-            $path:cmd configure -relief flat
         }
     }
 }
@@ -259,8 +319,13 @@ proc Button::_press { path } {
 
     if { ![string equal [$path:cmd cget -state] "disabled"] } {
         set _pressed $path
-	$path:cmd configure -relief sunken
-	set cmd [Widget::getMegawidgetOption $path -armcommand]
+        if { $::Widget::_theme} {
+            ttk::clickToFocus $path
+            $path state pressed
+        } else {
+            $path:cmd configure -relief sunken
+        }
+        set cmd [Widget::getMegawidgetOption $path -armcommand]
         if { $cmd != "" } {
             uplevel \#0 $cmd
 	    set repeatdelay [Widget::getMegawidgetOption $path -repeatdelay]
@@ -284,12 +349,16 @@ proc Button::_release { path } {
 
     if { $_pressed == $path } {
         set _pressed ""
-        set relief [Widget::getMegawidgetOption $path -relief]
 	after cancel "Button::_repeat $path"
-        if { [string equal $relief "link"] } {
-            set relief raised
+        if { $::Widget::_theme} {
+            $path state !pressed
+        } else {
+            set relief [Widget::getMegawidgetOption $path -relief]
+            if { [string equal $relief "link"] } {
+                set relief raised
+            }
+            $path:cmd configure -relief $relief
         }
-        $path:cmd configure -relief $relief
 	set cmd [Widget::getMegawidgetOption $path -disarmcommand]
         if { $cmd != "" } {
             uplevel \#0 $cmd
@@ -320,5 +389,4 @@ proc Button::_repeat { path } {
           [set delay [Widget::getMegawidgetOption $path -repeatdelay]] > 0) } {
         after $delay "Button::_repeat $path"
     }
-}
-
+}