arcadia 0.13.0 → 0.13.1

data/lib/a-tkcommons.rb

@@ -956,7 +956,11 @@ class TkBaseTitledFrame < TkFrame
   end
 
   def visible?
-    TkWinfo.mapped?(self)
+    ret = false
+    begin
+      ret = TkWinfo.mapped?(self)
+    rescue Exception => e
+    end
   end
 end
 
@@ -1514,20 +1518,19 @@ class TkFloatTitledFrame < TkBaseTitledFrame
     frame.place('height'=>-32)
     borderwidth  2
     relief  'groove'
-
-    @right_label = TkLabel.new(@top, Arcadia.style('titlelabel')){
+    @left_label = TkLabel.new(@top, Arcadia.style('titlelabel')){
       anchor 'w'
-    }.pack('fill'=>'x', 'side'=>'top')
-    #.place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1 ,'width'=>-20)
-
+    }.place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1 ,'width'=>-20)
+    #.pack('fill'=>'x', 'side'=>'top')
     @resizing_label=TkLabel.new(self, Arcadia.style('label')){
       text '-'
       image Arcadia.image_res(EXPAND_LIGHT_GIF)
     }.pack('side'=> 'right','anchor'=> 's')
-    start_moving(@right_label, self)
+    start_moving(@left_label, self)
     start_moving(frame, self)
     start_resizing(@resizing_label, self)
     @grabbed = false
+    @event_loop = false
     #    frame.bind_append('KeyPress'){|e|
     #      p e.keysym
     #      case e.keysym
@@ -1540,7 +1543,7 @@ class TkFloatTitledFrame < TkBaseTitledFrame
   end
   
   def title(_text)
-    @right_label.text(_text)
+    @left_label.text(_text)
   end
 
   def on_close=(_proc)
@@ -1552,6 +1555,10 @@ class TkFloatTitledFrame < TkBaseTitledFrame
   end
 
   def hide
+    if @event_loop
+      Arcadia.detach_listener(self, ArcadiaEvent)
+      @event_loop = false
+    end
     @manager = TkWinfo.manager(self)
     if @manager == 'place'
       @x_place = TkPlace.info(self)['x']
@@ -1568,10 +1575,18 @@ class TkFloatTitledFrame < TkBaseTitledFrame
     self
   end
 
+  def on_arcadia(_e)
+    self.raise
+  end
+
   def show
     if @manager == 'place'
       self.place('x'=>@x_place, 'y'=>@y_place, 'width'=>@width_place, 'height'=>@height_place)
     end
+    if @event_loop == false
+      Arcadia.attach_listener(self, ArcadiaEvent)
+      @event_loop = true
+    end
     self.raise
   end
 

data/tcl/{bwidget-1.9.6 → bwidget-1.9.7}/BWman/ComboBox.html

@@ -145,6 +145,7 @@
  ?<I>option</I>? ?<I>value</I> <I>option</I> <I>value</I> ...?
 </DD>
 <DD><I>pathName</I> <A HREF="#get"><B>get</B></A></DD>
+<DD><I>pathName</I> <A HREF="#getentry"><B>getentry</B></A></DD>
 <DD><I>pathName</I> <A HREF="#getlistbox"><B>getlistbox</B></A></DD>
 <DD><I>pathName</I> <A HREF="#getvalue"><B>getvalue</B></A></DD>
 <DD><I>pathName</I> <A HREF="#icursor"><B>icursor</B></A>
@@ -315,6 +316,13 @@ Returns the current contents of the entry.
 
 </DD></DL>
 
+<DL><DT><A NAME="getentry"><I>pathName</I> <B>getentry</B></A>
+</DT><DD>
+
+Returns the path to the contained entry widget.
+
+</DD></DL>
+
 <DL><DT><A NAME="getlistbox"><I>pathName</I> <B>getlistbox</B></A>
 </DT><DD>
 

data/tcl/{bwidget-1.9.6 → bwidget-1.9.7}/BWman/MainFrame.html

@@ -22,21 +22,24 @@
 </TR>
 <TR>
 <TD>&nbsp;&nbsp;-progressvar (see <B>-variable</B>)</TD>
+</TR>
 </TABLE></DD>
 </DL>
 <DL>
 <DT><I><A HREF="#wso">WIDGET-SPECIFIC OPTIONS</A></I></DT>
 <DD><TABLE CELLSPACING=0 CELLSPACING=0 BORDER=0>
 <TR>
-<TD>&nbsp;&nbsp;<A HREF="#-height">-height</A></TR>
-<TD>&nbsp;&nbsp;<A HREF="#-menu">-menu</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-height">-height</A></TD></TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="#-menu">-menu</A></TD>
 </TR>
 <TR>
-<TD>&nbsp;&nbsp;<A HREF="#-separator">-separator</A></TR>
-<TD>&nbsp;&nbsp;<A HREF="#-textvariable">-textvariable</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-separator">-separator</A></TD></TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="#-textvariable">-textvariable</A></TD>
 </TR>
 <TR>
-<TD>&nbsp;&nbsp;<A HREF="#-width">-width</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-width">-width</A></TD></TR>
 <TD>&nbsp;&nbsp;<A HREF="#-sizegrip">-sizegrip</A></TR>
 </TABLE></DD>
 </DL>
@@ -83,10 +86,10 @@
 MainFrame manage toplevel to have:<BR>
 <UL>
 <LI>simple menu creation, with automatic accelerator bindings and
-<A HREF="DynamicHelp.html">DynamicHelp</A> association,
-<LI>one or more toolbars that user can hide,
-<LI>a status bar, displaying a user message or a menu description, and optionally a 
-<A HREF="ProgressBar.html">ProgressBar</A>.
+<A HREF="DynamicHelp.html">DynamicHelp</A> association,</LI>
+<LI>one or more toolbars that user can hide,</LI>
+<LI>a status bar, displaying a user message or a menu description, and optionally a
+<A HREF="ProgressBar.html">ProgressBar</A>.</LI>
 </UL>
 </P>
 <BR><HR WIDTH="50%"><BR>
@@ -108,33 +111,35 @@ one cascade menu. It has the following form:
 where <I>menuentries</I> is a list where each element describe one menu entry, which can be:
 <UL>
 <LI>for a separator:<BR>
-  {<B>separator</B>}
+  {<B>separator</B>}</LI>
 <LI>for a command:<BR>
-  {<B>command</B> <I>menuname</I> ?<I>tags</I>? ?<I>description</I>? ?<I>accelerator</I>? ?<I>option</I> <I>value</I>? ...}
+  {<B>command</B> <I>menuname</I> ?<I>tags</I>? ?<I>description</I>? ?<I>accelerator</I>? ?<I>option</I> <I>value</I>? ...}</LI>
 <LI>for a check button:<BR>
-  {<B>checkbutton</B> <I>menuname</I> ?<I>tags</I>? ?<I>description</I>? ?<I>accelerator</I>? ?<I>option</I> <I>value</I>? ...}
+  {<B>checkbutton</B> <I>menuname</I> ?<I>tags</I>? ?<I>description</I>? ?<I>accelerator</I>? ?<I>option</I> <I>value</I>? ...}</LI>
 <LI>for a radio button:<BR>
-  {<B>radiobutton</B> <I>menuname</I> ?<I>tags</I>? ?<I>description</I>? ?<I>accelerator</I> ?<I>option</I> <I>value</I>? ...}
+  {<B>radiobutton</B> <I>menuname</I> ?<I>tags</I>? ?<I>description</I>? ?<I>accelerator</I> ?<I>option</I> <I>value</I>? ...}</LI>
 <LI>for a cascade menu:<BR>
-  {<B>cascade</B> <I>menuname</I> <I>tags</I> <I>menuId</I> <I>tearoff</I> <I>menuentries</I>}
+  {<B>cascade</B> <I>menuname</I> <I>tags</I> <I>menuId</I> <I>tearoff</I> <I>menuentries</I>}</LI>
 </UL>
 where:
 <UL>
 <LI><I>menuname</I> is the name of the menu. If it contains a &amp;, the following character
 is automatically converted to the corresponding <B>-underline</B> option of <B>menu add</B>
-command.
+command.</LI>
 <LI><I>tags</I> is the tags list for the entry, used for enabling or disabling menu
-entries with <B>MainFrame::setmenustate</B>.
+entries with <B>MainFrame::setmenustate</B>.</LI>
 <LI><I>menuId</I> is an id for the menu, from which you can get menu pathname with
- <B>MainFrame::getmenu</B>.
-<LI><I>tearoff</I> specifies if menu has tearoff entry.
-<LI><I>description</I> specifies a string for <A HREF=\"DynamicHelp.html\">DynamicHelp</A>.
+ <B>MainFrame::getmenu</B>.</LI>
+<LI><I>tearoff</I> specifies if menu has tearoff entry.</LI>
+<LI><I>description</I> specifies a string for <A HREF=\"DynamicHelp.html\">DynamicHelp</A>.</LI>
 <LI><I>accelerator</I> specifies a key sequence. It is a list of two elements, where the first
-is one of <B>Ctrl</B>, <B>Alt</B> or <B>CtrlAlt</B>, and the second as letter or a digit.
+is one of <B>Shift</B>, <B>Ctrl</B>, <B>Alt</B>, <B>CtrlAlt</B>, <B>Cmd</B>,  or <B>ShiftCmd</B>, and the second as letter
+(see <A HREF="#-casesensitive">-casesensitive</A> option for interpretation),  digit or
+a special key name.
 An accelerator string is build and corresponding binding set on the toplevel to invoke the
-menu entry.
+menu entry.</LI>
 <LI><I>option value</I> specifies additionnal options for the entry (see <B>menu add</B>
-command).
+command).</LI>
 </UL>
 Each value enclosed by ? are optional and defaulted to empty string, but must be
 provided if one or more following options is not empty.
@@ -155,7 +160,7 @@ set descmenu {
         {command "E&xit" {} "Exit the application" {} -command Menu::exit}
     }
     "&Options" {} {} 0 {
-        {checkbutton "Toolbar" {} "Show/hide toolbar" {} 
+        {checkbutton "Toolbar" {} "Show/hide toolbar" {}
             -variable Menu::_drawtoolbar
             -command  {$Menu::_mainframe showtoolbar toolbar $Menu::_drawtoolbar}
         }

data/tcl/{bwidget-1.9.6 → bwidget-1.9.7}/ChangeLog

@@ -1,3 +1,62 @@
+2013-09-15 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	**** BWidget 1.9.7 tagged ****
+
+2013-09-11 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	xpm2image.tcl: many issues fixed in xpm import
+	by Mattias Hembruch. Ticket [9a8b2ee42e]
+	
+2013-08-14 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* notebook.tcl: cured error in _resize, that
+	data($p,width) is not (jet) present. Ticket [a4cbba655d].
+
+2013-06-28 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* mainframe.tcl: Included Patch [9f67a66609]
+	curing issues of Shift-Accellerators with Shift-Lock
+	on Mac. By Keith Nash, Ticket [83ce3e84e7].
+
+2013-06-26 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* mainframe.tcl: Reverted Patch [1977644]
+	(-casesensitive for accellerators). It has
+	issues with shift-lock.
+
+2013-06-21 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* labelentry.tcl: Bug fixed:
+	Methods from Tk entry widget restored [Bug 1002844].
+	
+	* mainframe.tcl: Allow case sensitive accelerators
+	by new option -casesensitive.
+	Patch by cmard [Patch 1977644]
+	
+	* mainframe.tcl: Allow new modifiers Shift, Cmd and ShiftCmd
+	for accelerators. Patch by K.J.Nash [Patch-83ce3e84e7]
+
+	* mainframe.tcl: When changing MainFrame -background, do
+	not change menu colors on Aqua.
+	Fix by Keith J.Nash [Bug-a81b7afc1e]
+	
+	* init.tcl: Make loadable in save interpreter.
+	Fix by Keith J.Nash [Bug-4365a23bd3]
+
+	* combobox.tcl: Add method getentry to return entry
+	widget path for bind purposes.
+	Patch by Michael [Patch-2340355]
+	
+2013-01-09 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* widget.tcl: Bug fixed:
+	Error 'invalid command name ".#BWidget.#ttk::entry"'
+	arises in themed mode when an Entry widget should get
+	focus by the tab key.
+	The temporary widget creation fails due to the "::" in
+	the command name of ttk widgets.
+	Any "::" is replaced by "__" [Bug 3599955].
+	
 2011-07-27 Harald Oehlmann <oehhar@users.sourceforge.net>
 
 	**** BWidget 1.9.6 tagged ****

data/tcl/{bwidget-1.9.6 → bwidget-1.9.7}/combobox.tcl

@@ -10,6 +10,7 @@
 #     - ComboBox::setvalue
 #     - ComboBox::getvalue
 #     - ComboBox::clearvalue
+#     - ComboBox::getentrypath
 #     - ComboBox::_create_popup
 #     - ComboBox::_mapliste
 #     - ComboBox::_unmapliste
@@ -450,6 +451,13 @@ proc ComboBox::clearvalue { path } {
     Entry::configure $path.e -text ""
 }
 
+# ----------------------------------------------------------------------------
+#  Command ComboBox::getentry
+# ----------------------------------------------------------------------------
+proc ComboBox::getentry { path } {
+    return $path.e
+}
+
 # ----------------------------------------------------------------------------
 #  Command ComboBox::_create_popup
 # ----------------------------------------------------------------------------