arcadia 0.7.0 → 0.8.0

data/lib/a-tkcommons.rb

@@ -6,7 +6,7 @@
 require "lib/a-commons"
 require "tk/menu"
 
-class MyBwTree < Tk::BWidget::Tree
+class BWidgetTreePatched < Tk::BWidget::Tree
 
   def open?(node)
     bool(self.itemcget(tagid(node), 'open'))
@@ -53,8 +53,8 @@ class TkApplication < Application
     @tcltk_info = TclTkInfo.new
   end
   
-  def sys_info
-   "#{super} [TclTk version = #{tcltk_info.level}]"
+  def self.sys_info
+   "#{super}\n[TclTk version = #{TclTkInfo.new.level}]"
   end
   
   def run
@@ -240,6 +240,7 @@ class TkFrameAdapter < TkFrame
     super(scope_parent, *args)
     @scope_parent = scope_parent
     @movable = true
+    #ObjectSpace.define_finalizer(self, self.method(:detach_frame).to_proc)
   end
 
   def add_moved_by(_obj)
@@ -265,7 +266,7 @@ class TkFrameAdapter < TkFrame
     if @movable
       @frame.bind_append("Configure",proc{ refresh})
       @frame.bind_append("Map",proc{refresh})
-      @frame.bind_append("Unmap",proc{unplace})
+      @frame.bind_append("Unmap",proc{unplace if TkWinfo.mapped?(@frame)})
     end
     self
   end
@@ -900,6 +901,10 @@ class TkTitledFrame < TkBaseTitledFrame
     end
     self.raise
   end
+  
+  def maximized?
+    @state == 'maximize'
+  end
 
   def maximize
     if @state == 'normal'
@@ -1138,6 +1143,7 @@ class TkProgressframe < TkFloatTitledFrame
   attr_accessor :max
   def initialize(parent=nil, _max=100, *args)
     super(parent)
+    _max=1 if _max<=0
     @max = _max
     @progress = TkVariable.new
     @progress.value = -1
@@ -1332,6 +1338,11 @@ class TkScrollWidget
       do_xscrollcommand(first,last)
     })
   end
+
+  def destroy
+    @h_scroll.destroy
+    @v_scroll.destroy
+  end
   
   def add_yscrollcommand(cmd=Proc.new)
     @v_scroll_command = cmd
@@ -1425,7 +1436,4 @@ class KeyTest < TkFloatTitledFrame
     _wrapper.show_h_scroll
     place('x'=>100,'y'=>100,'height'=> 220,'width'=> 500)
   end
-end
-
-
-
+end

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/Dialog.html

@@ -32,8 +32,13 @@
 <TD>&nbsp;&nbsp;<A HREF="#-bitmap">-bitmap</A></TR>
 </TR>
 <TR>
+
+<TD>&nbsp;&nbsp;<A HREF="#-buttonwidth">-buttonwidth</A></TR>
 <TD>&nbsp;&nbsp;<A HREF="#-cancel">-cancel</A></TR>
+</TR>
+<TR>
 <TD>&nbsp;&nbsp;<A HREF="#-default">-default</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-geometry">-geometry</A></TR>
 </TR>
 <TR>
 <TD>&nbsp;&nbsp;<A HREF="#-image">-image</A></TR>
@@ -134,6 +139,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>
 
@@ -148,6 +160,14 @@ Specifies the number of the default button of the Dialog.
 When user press Return in the Dialog, this button is invoked.
 </DD>
 </DL>
+</DL>
+<DL><DT><A NAME="-geometry"><B>-geometry</B></A></DT>
+<DD>
+
+Set the <B>geometry</B> used when method <B>draw</B> is called.
+See <B>wm geometry</B> for a parameter description.
+</DD>
+</DL>
 <DL><DT><A NAME="-image"><B>-image (read-only)</B></A></DT>
 <DD>
 

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/DragSite.html

@@ -98,15 +98,17 @@ Command called when drag initiates. When the event of option <B>dragevent</B> oc
 <LI>a toplevel created to represent dragged data. When returning, if it
 has no children, a bitmap is automatically displayed.
 </UL>
-The command must return a list containing three elements:
+If the command returns an empty string, then the drag will be
+suppressed.  Otherwise the command must return a list containing three
+elements:
 <UL>
 <LI>the type of the data,
 <LI>the list of acceptable basic operations (<B>copy</B>, <B>move</B> and <B>link</B>)
 <LI>and the data.
 </UL>
-Note that even if <B>copy</B> does not appear in the list of basic operation,
-it is considered as an acceptable operation, since <B>copy</B> semantic does not modify
-the drag source.
+Note that even if <B>copy</B> does not appear in the list of basic
+operation, it is considered as an acceptable operation, since
+<B>copy</B> semantic does not modify the drag source.
 
 </DD>
 </DL>

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/DropSite.html

@@ -67,9 +67,21 @@ This command is used to declare <I>path</I> as a drop site. Options are:
 <DL><DT><A NAME="DropSite-dropcmd"><B>-dropcmd</B></A></DT>
 <DD>
 
-This command is called when user release the drag icon over a valid drop target widget.
-It takes the same arguments as <B>-dragovercmd</B> command. Its return values is passed
-as a result to the <B>-dragendcmd</B> command of the drag source widget.
+This command is called when user release the drag icon over a valid
+drop target widget.  Arguments passed to the command are:
+
+<UL>
+<LI>pathname of the drop target (the widget itself),
+<LI>pathname of the drag source,
+<LI>root x-coordinate of the pointer,
+<LI>root y-coordinate of the pointer,
+<LI>operation,
+<LI>type of the dragged data,
+<LI>dragged data.
+</UL>
+
+Its return values is passed as a result to the <B>-dragendcmd</B>
+command of the drag source widget.
 
 </DD>
 </DL>

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/DynamicHelp.html

@@ -62,8 +62,8 @@ This command adds dynamic help to the given <i>widget</i>.
 
     <DL><DT><A NAME="add-item"><B>-item</B></A></DT>
     <DD>
-	If specified, refers to an item or tag on a canvas to bind the
-	help to instead of a widget.
+    	If specified, refers to an item or tag on a canvas widget or to a tag
+        in a text widget to bind the help to instead of to a widget.
     </DD>
     </DL>
 
@@ -201,9 +201,12 @@ Depending on <I>type</I>, other options must be provided.
 </TABLE>
 <BR>If one of the option is missing or is empty, help is removed for this widget.
 <p>
-If <i>tagOrItem</i> is specified, then <i>path</i> is a canvas, and
-<i>tagOrItem</i> is the name of a tag or item on the canvas to which
-the help will be bound.
+
+If <i>tagOrItem</i> is specified, then <i>path</i> is a canvas or a text. In
+case of a canvas, <i>tagOrItem</i> is the name of a tag or item on the canvas
+to which the help will be bound. In case of a text, <i>tagOrItem</i> is the
+name of a tag on the text to which the help will be bound.
+
 </p>
 For type other than <I>balloon</I>, <I>varName</I> is typically a variable
 linked to a label.

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ListBox.html

@@ -367,7 +367,7 @@ Set it to false if you call <B>update</B> while modifying the listbox.
 </DD>
 </DL>
 
-<DL><DT><A NAME="-selectmode"><B>-selectmode (read-only)</B></A></DT>
+<DL><DT><A NAME="-selectmode"><B>-selectmode</B></A></DT>
 <DD>
 
 Specifies the desired selection-mode for the listbox. Must be one of

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/MainFrame.html

@@ -247,6 +247,13 @@ Returns the pathname of the <I>index</I>th added indicator.
 
 Returns the pathname of the menu whose id is <I>menuid</I>.
 </DD></DL>
+<DL><DT><A NAME="getmenustate"><I>pathName</I> <B>getmenustate</B></A>
+ <I>tag</I>
+ <I>state</I>
+</DT><DD>
+
+Returns the state of the given menu <I>tag</I>.
+</DD></DL>
 <DL><DT><A NAME="gettoolbar"><I>pathName</I> <B>gettoolbar</B></A>
  <I>index</I>
 </DT><DD>
@@ -260,6 +267,7 @@ Returns the pathname of the <I>index</I>th added toolbar.
 
 Set the <B>-state</B> option value of all the menu entries that have the tag <I>tag</I>
 to <I>state</I>.
+A menu entry is disabled, if one of its associated tags have state <B>disabled</B>.
 
 </DD></DL>
 <DL><DT><A NAME="showstatusbar"><I>pathName</I> <B>showstatusbar</B></A>

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/PanedWindow.html

@@ -20,12 +20,16 @@
 <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="#-pad">-pad</A></TR>
-<TD>&nbsp;&nbsp;<A HREF="#-side">-side</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-activator">-activator</A></TD>
+<TD>&nbsp;&nbsp;<A HREF="#-pad">-pad</A></TD>
 </TR>
 <TR>
-<TD>&nbsp;&nbsp;<A HREF="#-weights">-weights</A></TR>
-<TD>&nbsp;&nbsp;<A HREF="#-width">-width</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-side">-side</A></TD>
+<TD>&nbsp;&nbsp;<A HREF="#-weights">-weights</A></TD>
+</TR>
+<TR>
+<TD>&nbsp;&nbsp;<A HREF="#-width">-width</A></TD>
+</TR>
 </TABLE></DD>
 </DL>
 <DL>
@@ -54,6 +58,17 @@ between children.
 </P>
 <BR><HR WIDTH="50%"><BR>
 <B><A NAME="wso">WIDGET-SPECIFIC OPTIONS</A></B><BR>
+<DL><DT><A NAME="-activator"><B>-activator (read-only)</B></A></DT>
+<DD>
+
+By default, the control sash is either a button or a line depending
+upon the underlying operating system.  This sash may be explicitly set
+using this option.  If set to <B>line</B> then the sash consists of
+just a dividing line.  Otherwise if set to <B>button</B> then it
+constists of a knob that can be dragged.
+
+</DD>
+</DL>
 <DL><DT><A NAME="-pad"><B>-pad (read-only)</B></A></DT>
 <DD>
 
@@ -82,7 +97,8 @@ their weight. Default value for <B>weights</B> is <I>extra</I>.
 <DL><DT><A NAME="-width"><B>-width (read-only)</B></A></DT>
 <DD>
 
-Specifies the width of the button of the sash.
+Specifies the width of the button of the sash.  This option is ignored
+if the activator is set to <B>line</B>.
 
 </DD>
 </DL>

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ScrollableFrame.html

@@ -14,11 +14,14 @@
 <DD><TABLE CELLSPACING=0 CELLSPACING=0 BORDER=0>
 <TR>
 <TD>&nbsp;&nbsp;<A HREF="options.htm#M-background">-background or -bg</A></TD>
-<TD>&nbsp;&nbsp;<A HREF="options.htm#M-xscrollcommand">-xscrollcommand</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-xscrollcommand">-xscrollcommand</A></TD></TR>
 </TR>
 <TR>
-<TD>&nbsp;&nbsp;<A HREF="options.htm#M-yscrollcommand">-yscrollcommand</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="options.htm#M-yscrollcommand">-yscrollcommand</A></TD></TR>
 </TABLE></DD>
+<BR>
+Themed widget (<B>Widget::theme true</B>): Options <B>-background</B> and <B>-bg</B> are not available.
+Modify style <B>TFrame</B> property <B>-background</B> instead.
 </DL>
 <DL>
 <DT><I><A HREF="#wso">WIDGET-SPECIFIC OPTIONS</A></I></DT>

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ScrolledWindow.html

@@ -25,7 +25,11 @@
 <DD><TABLE CELLSPACING=0 CELLSPACING=0 BORDER=0>
 <TR>
 <TD>&nbsp;&nbsp;<A HREF="#-auto">-auto</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-ipad">-ipad</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-managed">-managed</A></TR>
 <TD>&nbsp;&nbsp;<A HREF="#-scrollbar">-scrollbar</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-sides">-sides</A></TR>
+<TD>&nbsp;&nbsp;<A HREF="#-size">-size</A></TR>
 </TR>
 </TABLE></DD>
 </DL>
@@ -60,15 +64,43 @@ Specifies the desired auto managed scrollbar:
 <LI><B>none</B> means scrollbar are always drawn
 <LI><B>horizontal</B> means horizontal scrollbar is drawn as needed
 <LI><B>vertical</B> means vertical scrollbar is drawn as needed
-<LI><B>both</B> means horizontal and vertical scrollbars are drawn as needed
-<LI><B>horizontal</B> means horizontal scrollbar is drawn as needed
+<LI><B>both</B> means horizontal and vertical scrollbars are drawn as needed (default value)
+</DD>
+</DL>
+<DL><DT><A NAME="-ipad"><B>-ipad (read-only)</B></A></DT>
+<DD>
+
+Padding in pixels between client widget and scrollbars.
+Default value: <B>1</B>.
+</DD>
+</DL>
+<DL><DT><A NAME="-managed"><B>-managed (read-only)</B></A></DT>
+<DD>
+
+If true, scrollbar are managed during creation, so their size are included in the requested size of the
+ScrolledWindow. If false, they are not.
+Default value: <B>true</B>.
 </DD>
 </DL>
-<DL><DT><A NAME="-scrollbar"><B>-scrollbar (read-only)</B></A></DT>
+<DL><DT><A NAME="-scrollbar"><B>-scrollbar</B></A></DT>
 <DD>
 
 Specifies the desired scrollbar: <B>none</B>, <B>horizontal</B>, <B>vertical</B>
-or <B>both</B>. This option is not modifiable with <B>ScrolledWindow::configure</B>.
+or <B>both</B> (default value).
+</DD>
+</DL>
+<DL><DT><A NAME="-sides"><B>-sides (read-only)</B></A></DT>
+<DD>
+
+Side of the scrollbars.
+Possible values are: <B>ne</B>, <B>en</B>, <B>nw</B>, <B>wn</B>, <B>se</B> (default value), <B>es</B>, <B>sw</B>, <B>ws</B>.
+</DD>
+</DL>
+<DL><DT><A NAME="-size"><B>-size (read-only)</B></A></DT>
+<DD>
+
+Size of the scrollbars in pixels.
+Use </B>0</B> for standard size (default value).
 </DD>
 </DL>
 <HR WIDTH="50%"><BR>

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/Tree.html

@@ -499,12 +499,6 @@ avoid errors because the characters are special to the tree widget.
 
 This command associates a command to execute whenever the event
 sequence given by <I>event</I> occurs anywhere within the Tree area.
-
-<p>
-Any occurrence of <b>%W</b> in script is substituted with the path of
-the tree.  <em><a href="#bug">(See note below about this behavior.)</a></em>
-</p>
-
 </DD></DL>
 <DL><DT><A NAME="bindImage"><I>pathName</I> <B>bindImage</B></A>
  <I>event</I>
@@ -513,13 +507,11 @@ the tree.  <em><a href="#bug">(See note below about this behavior.)</a></em>
 
 This command associates a command to execute whenever the event
 sequence given by <I>event</I> occurs on the image of a node.
-The node idenfier on which the event occurs is appended to the command.
-
-<p>
-Any occurrence of <b>%W</b> in script is substituted with the path of
-the tree.  <em><a href="#bug">(See note below about this behavior.)</a></em>
-</p>
+The node idenfier on which the event occurs is appended to the command and may be used to manipulate the tree (e.g. don't use <B>%W</B>).
 
+<P>
+If <B>-selectfill</B> is given, an eventual binding of the background box by <B>bindText</B> is overwritten.
+</P>
 </DD></DL>
 <DL><DT><A NAME="bindText"><I>pathName</I> <B>bindText</B></A>
  <I>event</I>
@@ -528,13 +520,11 @@ the tree.  <em><a href="#bug">(See note below about this behavior.)</a></em>
 
 This command associates a command to execute whenever the event
 sequence given by <I>event</I> occurs on the label of a node.
-The node idenfier on which the event occurs is appended to the command.
-
-<p>
-Any occurrence of <b>%W</b> in script is substituted with the path of
-the tree.  <em><a href="#bug">(See note below about this behavior.)</a></em>
-</p>
+The node idenfier on which the event occurs is appended to the command and may be used to manipulate the tree (e.g. don't use <B>%W</B>).
 
+<P>
+If <B>-selectfill</B> is given, an eventual binding of the background box by <B>bindImage</B> is overwritten.
+</P>
 </DD></DL>
 <DL><DT><A NAME="cget"><I>pathName</I> <B>cget</B></A>
  <I>option</I>
@@ -649,7 +639,9 @@ Inserts a new node identified by <I>node</I> in the children list of
 
 <p>
 Any instance of <i>#auto</i> within the node name will be replaced by the
-number of the item in the order of insertion.
+number of the item in the order of insertion.  The non-printable characters
+\1 to \5 are reserved for internal use and should not be present in node
+names.
 </p>
 
 
@@ -701,12 +693,21 @@ Specifies the foreground color of the label of the node.
 
 Specifies a font for the label of the node.
 
+</DD>
+</DL>
+<DL><DT><A NAME="-helpcmd"><B>-helpcmd</B></A></DT>
+<DD>
+
+If specified, refers to a command to execute to get the help text to display.
+The command must return a string to display.
+If the command returns an empty string, no help is displayed. 
+See also <A HREF="DynamicHelp.html">DynamicHelp</A>.
 </DD>
 </DL>
 <DL><DT><A NAME="-helptext"><B>-helptext</B></A></DT>
 <DD>
 
-Text for dynamic help. If empty, no help is available for this widget.
+Text for dynamic help.
 See also <A HREF="DynamicHelp.html">DynamicHelp</A>.
 </DD>
 </DL>
@@ -933,15 +934,4 @@ not be generated.
 The tree has all the standard mouse wheel bindings when it has focus.
 </p>
 
-<B><A NAME="bug">CURRENT BUG WITH BINDS</A></B><BR>
-
-<p>
-There currently exists a bug with the Tree's <B>bindArea</B>,
-<B>bindImage</B>, and <B>bindText</B> commands.  Contrary to the given
-text, occurrences of <B>%W</B> within scripts do <em>not</em>
-substitute the Tree's path, but rather the Tree's underlying canvas.
-A future release of BWidget will fix this error.  For now it is
-recommended that you do not use <B>%W</B> within your scripts.
-</p>
-
 </BODY></HTML>