Browse files

change bwidget lib version

  • Loading branch information...
1 parent 7e6f249 commit de3789d671e431a08ed9164dfa441de364ff7ab5 @angal angal committed Dec 11, 2009
Showing with 1,292 additions and 312 deletions.
  1. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ArrowButton.html
  2. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/BWidget.html
  3. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/Button.html
  4. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ButtonBox.html
  5. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ComboBox.html
  6. +20 −0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/Dialog.html
  7. +6 −4 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/DragSite.html
  8. +15 −3 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/DropSite.html
  9. +8 −5 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/DynamicHelp.html
  10. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/Entry.html
  11. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/Label.html
  12. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/LabelEntry.html
  13. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/LabelFrame.html
  14. +1 −1 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ListBox.html
  15. +8 −0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/MainFrame.html
  16. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/MessageDlg.html
  17. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/NoteBook.html
  18. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/PagesManager.html
  19. +21 −5 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/PanedWindow.html
  20. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/PanelFrame.html
  21. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/PasswdDlg.html
  22. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ProgressBar.html
  23. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ProgressDlg.html
  24. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ScrollView.html
  25. +5 −2 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ScrollableFrame.html
  26. +36 −4 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/ScrolledWindow.html
  27. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/SelectColor.html
  28. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/SelectFont.html
  29. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/Separator.html
  30. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/SpinBox.html
  31. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/StatusBar.html
  32. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/TitleFrame.html
  33. +21 −31 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/Tree.html
  34. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/Widget.html
  35. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/contents.html
  36. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/index.html
  37. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/navtree.html
  38. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/BWman/options.htm
  39. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/CHANGES.txt
  40. +289 −0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/ChangeLog
  41. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/LICENSE.txt
  42. +2 −2 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/README.txt
  43. +1 −1 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/arrow.tcl
  44. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/bitmap.tcl
  45. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/button.tcl
  46. +23 −12 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/buttonbox.tcl
  47. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/color.tcl
  48. +101 −25 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/combobox.tcl
  49. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/demo/basic.tcl
  50. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/demo/bwidget.xbm
  51. +1 −1 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/demo/demo.tcl
  52. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/demo/dnd.tcl
  53. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/demo/manager.tcl
  54. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/demo/select.tcl
  55. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/demo/tmpldlg.tcl
  56. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/demo/tree.tcl
  57. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/demo/x1.xbm
  58. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/dialog.tcl
  59. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/dragsite.tcl
  60. +2 −1 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/dropsite.tcl
  61. +194 −33 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/dynhelp.tcl
  62. +8 −5 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/entry.tcl
  63. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/font.tcl
  64. +32 −0 tcl/BWidget-1.9.0/images/CVS/Entries
  65. +1 −0 tcl/BWidget-1.9.0/images/CVS/Repository
  66. +1 −0 tcl/BWidget-1.9.0/images/CVS/Root
  67. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/bold.gif
  68. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/copy.gif
  69. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/cut.gif
  70. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/dragfile.gif
  71. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/dragicon.gif
  72. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/error.gif
  73. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/file.gif
  74. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/folder.gif
  75. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/hourglass.gif
  76. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/info.gif
  77. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/italic.gif
  78. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/minus.xbm
  79. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/new.gif
  80. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/opcopy.xbm
  81. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/open.gif
  82. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/openfold.gif
  83. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/oplink.xbm
  84. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/opmove.xbm
  85. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/overstrike.gif
  86. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/palette.gif
  87. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/passwd.gif
  88. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/paste.gif
  89. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/plus.xbm
  90. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/print.gif
  91. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/question.gif
  92. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/redo.gif
  93. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/save.gif
  94. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/target.xbm
  95. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/underline.gif
  96. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/undo.gif
  97. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/images/warning.gif
  98. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/init.tcl
  99. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/label.tcl
  100. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/labelentry.tcl
  101. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/labelframe.tcl
  102. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/lang/da.rc
  103. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/lang/de.rc
  104. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/lang/en.rc
  105. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/lang/es.rc
  106. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/lang/fr.rc
  107. +52 −0 tcl/BWidget-1.9.0/lang/hu.rc
  108. +52 −0 tcl/BWidget-1.9.0/lang/nl.rc
  109. +52 −0 tcl/BWidget-1.9.0/lang/no.rc
  110. +89 −34 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/listbox.tcl
  111. +14 −13 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/mainframe.tcl
  112. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/messagedlg.tcl
  113. +3 −1 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/notebook.tcl
  114. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/pagesmgr.tcl
  115. +22 −18 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/panedw.tcl
  116. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/panelframe.tcl
  117. +7 −3 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/passwddlg.tcl
  118. +2 −2 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/pkgIndex.tcl
  119. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/progressbar.tcl
  120. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/progressdlg.tcl
  121. +60 −24 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/scrollframe.tcl
  122. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/scrollview.tcl
  123. +13 −11 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/scrollw.tcl
  124. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/separator.tcl
  125. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/spinbox.tcl
  126. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/statusbar.tcl
  127. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/tests/entry.test
  128. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/titleframe.tcl
  129. +51 −41 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/tree.tcl
  130. +26 −11 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/utils.tcl
  131. +53 −19 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/widget.tcl
  132. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/wizard.tcl
  133. 0 tcl/{BWidget-1.8.0 → BWidget-1.9.0}/xpm2image.tcl
View
0 tcl/BWidget-1.8.0/BWman/ArrowButton.html → tcl/BWidget-1.9.0/BWman/ArrowButton.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/BWidget.html → tcl/BWidget-1.9.0/BWman/BWidget.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/Button.html → tcl/BWidget-1.9.0/BWman/Button.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/ButtonBox.html → tcl/BWidget-1.9.0/BWman/ButtonBox.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/ComboBox.html → tcl/BWidget-1.9.0/BWman/ComboBox.html 100755 → 100644
File renamed without changes.
View
20 tcl/BWidget-1.8.0/BWman/Dialog.html → tcl/BWidget-1.9.0/BWman/Dialog.html 100755 → 100644
@@ -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 @@
<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 @@
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>
View
10 tcl/BWidget-1.8.0/BWman/DragSite.html → tcl/BWidget-1.9.0/BWman/DragSite.html 100755 → 100644
@@ -98,15 +98,17 @@
<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>
View
18 tcl/BWidget-1.8.0/BWman/DropSite.html → tcl/BWidget-1.9.0/BWman/DropSite.html 100755 → 100644
@@ -67,9 +67,21 @@
<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>
View
13 tcl/BWidget-1.8.0/BWman/DynamicHelp.html → tcl/BWidget-1.9.0/BWman/DynamicHelp.html 100755 → 100644
@@ -62,8 +62,8 @@
<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 @@
</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.
View
0 tcl/BWidget-1.8.0/BWman/Entry.html → tcl/BWidget-1.9.0/BWman/Entry.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/Label.html → tcl/BWidget-1.9.0/BWman/Label.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/LabelEntry.html → tcl/BWidget-1.9.0/BWman/LabelEntry.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/LabelFrame.html → tcl/BWidget-1.9.0/BWman/LabelFrame.html 100755 → 100644
File renamed without changes.
View
2 tcl/BWidget-1.8.0/BWman/ListBox.html → tcl/BWidget-1.9.0/BWman/ListBox.html 100755 → 100644
@@ -367,7 +367,7 @@
</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
View
8 tcl/BWidget-1.8.0/BWman/MainFrame.html → tcl/BWidget-1.9.0/BWman/MainFrame.html 100755 → 100644
@@ -247,6 +247,13 @@
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 @@
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>
View
0 tcl/BWidget-1.8.0/BWman/MessageDlg.html → tcl/BWidget-1.9.0/BWman/MessageDlg.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/NoteBook.html → tcl/BWidget-1.9.0/BWman/NoteBook.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/PagesManager.html → tcl/BWidget-1.9.0/BWman/PagesManager.html 100755 → 100644
File renamed without changes.
View
26 tcl/BWidget-1.8.0/BWman/PanedWindow.html → tcl/BWidget-1.9.0/BWman/PanedWindow.html 100755 → 100644
@@ -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 @@
</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 @@
<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>
View
0 tcl/BWidget-1.8.0/BWman/PanelFrame.html → tcl/BWidget-1.9.0/BWman/PanelFrame.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/PasswdDlg.html → tcl/BWidget-1.9.0/BWman/PasswdDlg.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/ProgressBar.html → tcl/BWidget-1.9.0/BWman/ProgressBar.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/ProgressDlg.html → tcl/BWidget-1.9.0/BWman/ProgressDlg.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/ScrollView.html → tcl/BWidget-1.9.0/BWman/ScrollView.html 100755 → 100644
File renamed without changes.
View
7 tcl/BWidget-1.8.0/BWman/ScrollableFrame.html → tcl/BWidget-1.9.0/BWman/ScrollableFrame.html 100755 → 100644
@@ -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>
View
40 tcl/BWidget-1.8.0/BWman/ScrolledWindow.html → tcl/BWidget-1.9.0/BWman/ScrolledWindow.html 100755 → 100644
@@ -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 @@
<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>
View
0 tcl/BWidget-1.8.0/BWman/SelectColor.html → tcl/BWidget-1.9.0/BWman/SelectColor.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/SelectFont.html → tcl/BWidget-1.9.0/BWman/SelectFont.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/Separator.html → tcl/BWidget-1.9.0/BWman/Separator.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/SpinBox.html → tcl/BWidget-1.9.0/BWman/SpinBox.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/StatusBar.html → tcl/BWidget-1.9.0/BWman/StatusBar.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/TitleFrame.html → tcl/BWidget-1.9.0/BWman/TitleFrame.html 100755 → 100644
File renamed without changes.
View
52 tcl/BWidget-1.8.0/BWman/Tree.html → tcl/BWidget-1.9.0/BWman/Tree.html 100755 → 100644
@@ -499,12 +499,6 @@
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 @@
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 @@
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 @@
<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>
@@ -703,10 +695,19 @@
</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 @@
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>
View
0 tcl/BWidget-1.8.0/BWman/Widget.html → tcl/BWidget-1.9.0/BWman/Widget.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/contents.html → tcl/BWidget-1.9.0/BWman/contents.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/index.html → tcl/BWidget-1.9.0/BWman/index.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/navtree.html → tcl/BWidget-1.9.0/BWman/navtree.html 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/BWman/options.htm → tcl/BWidget-1.9.0/BWman/options.htm 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/CHANGES.txt → tcl/BWidget-1.9.0/CHANGES.txt 100755 → 100644
File renamed without changes.
View
289 tcl/BWidget-1.8.0/ChangeLog → tcl/BWidget-1.9.0/ChangeLog 100755 → 100644
@@ -1,3 +1,292 @@
+2009-07-24 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ **** BWidget 1.9.0 tagged ****
+
+ * pkgIndex.tcl, README.txt: updated to BWidget 1.9
+
+2009-07-23 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * tree.tcl (Tree::_set_help), Tree.html DynamicHelp -helpcmd added to
+ tree node help
+ * tree.tcl (Tree::_draw_subnodes) a vertical line to a virtual root node
+ above the widget is only drawn when there are multiple child nodes.
+ This reverts the modification dated 2004-04-21 for this case.
+ [Patch 2825354] by Koen Danckaert
+
+2009-07-17 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * scrollframe.tcl (ScrollableFrame::create et al) ScrollableFrame.html
+ Background color of canvas takes the color of the scrolled frame.
+ If themed, canvas takes the themed color of the scrolled themed frame.
+ If themed, parameters -background and -bg are not available(doc + code).
+ [Patch 2822970] by Koen Danckaert
+
+2009-07-15 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * dynhelp.tcl (DynamicHelp) Typo from yesterday corrected
+ [Patch 2820851] by Koen Danckaert
+
+2009-07-14 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * dynhelp.tcl (DynamicHelp::_leave_info et al) issues:
+ - menu help sometimes not cleared when clicking off-window (unix)
+ - "-helpcmd" available also when dynamichelp is included in another
+ widget.
+ - given "-helpcmd" always called at global scope.
+ - Protect against multiple calls of <Leave> event.
+ [Patch 2820851] by Koen Danckaert
+
+2009-07-07 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * combobox.tcl (ComboBox::_select) Do not export selection if
+ -exportselection 0 [Patch 981545] by Jeffrey Hobbs
+
+2009-07-02 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * widget.tcl (Widget::configure) Bug: ProgressDlg option -geometry
+ not setable. The former patch was improved.
+ Koen Danckaert and myself argued, that we modify symptoms without
+ basic understandings. Anyway, better now than before.
+
+2009-07-01 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * mainframe.tcl, MainFrame.html (MainFrame::getmenustate)
+ Added method getmenustate to return menu tag state
+ [Bug 948063] reported by Rolf Ade
+
+ * combobox.tcl (ComboBox::configure) Bug fixed: Widget did not take
+ focus, when -editable false and "configure -state normal" called.
+ [Bug 756334] reported by Rolf Ade
+
+ * widget.tcl (Widget::configure) Bug: ProgressDlg option -bg not
+ setable. The special handling of subwidgets with special class or
+ path ":cmd" was improved. [Bug 611477]
+
+ * notebook.tcl (NoteBook::_itemconfigure) Not honored option:
+ itemconfigure ... -helptext [Patch 2814050] by Koen Danckaert
+
+2009-06-30 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * buttonbox.tcl (ButtonBox::_redraw) Bug corrected:
+ -uniform gridding option is used if tcl version >= 8.4 (not 8.3).
+ [Patch 2807147] by Koen Danckaert
+
+ * tree.tcl (Tree::_drop_cmd) If there is no node, drop didn't work.
+ [Bug 1042613] reported by Rolf Ade
+
+ * Tree.html Bind commands: removed promise that %W would work in future.
+ The underlying widgets should only be manipulated using the node id.
+ [Bug 1224203] by Jasper Taylor, remarks by J. Tang
+
+ * Tree.html Bind commands: with -selectfill, the given command is
+ overwritten for the background box. [Bug 1003962] by Torsten Berg
+
+ * dropsite.tcl (DropSite::register) Bug fixed: fails on multiple drop
+ targets [Bug 1213123] by T.Neil
+
+ * combobox.tcl (ComboBox::_create_popup) Bug fixed: Return key in drop
+ down list when -bwlistbox true [Bug 1205536] patch by Steve Landers
+
+ * combobox.tcl (ComboBox::_create_popup, ComboBox::_unmapliste)
+ Mac aqua and x11 fixes, multi screen issue still open.
+ [Bug 1451784] report by Jasper Taylor, fix by Kevin Walzer
+
+ * listbox.tcl (ListBox::_multiple_select) Selected item not deselected
+ on control-click [Bug 1029144] reported by Konrad Rosenbaum
+
+
+2009-06-29 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * ScrolledWindow.html ScrolledWindow documentation changed:
+ Documented options: -ipad, -sides, -size, -managed
+ [Patch 2807160] Text by Koen Danckaert
+ Removed (read only) remark of option -scrollbar.
+
+ * scrollframe.tcl (ScrollableFrame::create) changed bindings
+ [Patch 2807227] by Koen Danckaert (comment)
+
+ * scrollw.tcl (ScrolledWindow::_set_hscroll, ScrolledWindow::_set_vscroll)
+ Bug corrected: enless loop when both scrollbars where automatically
+ mapped and the window size was changed by this action (on linux).
+ Scrollbar unmapping and mapping secured by a locked update [Bug 2783019]
+
+ * widget.tcl (Widget::tkinclude) : option data base entry name keeps the
+ original name and not the renamed name.
+ The only resulting modification is to rename the option key for
+ "MessageDlg -text" from "*MessageDlg.frame.msg.message" to
+ "*MessageDlg.frame.msg.text". [Bug 1266792]
+
+ * widget.tcl (Widget::init) : fixed a memory leak on wrong option value.
+ [Bug 1230737]
+
+2009-06-26 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * listbox.tcl (ListBox::create et al) new feature: listbox option
+ -listbox now read/write [Bug 1501874] reported by Stephen Huntley
+
+ * dynhelp.tcl (DynamicHelp::_show_help) fixed issue (as far as possible):
+ Dynamic help baloon was on the main screen, if it touched the border on
+ a windows multi screen configuration.
+ The fix assumes, that all screens have same dimensions and no gaps in-
+ between. This is necessary, because multi-screen configuration paramters
+ may not be interrogated by tk (despite of coordinates out of the screen)
+ [Bug 1499135] reported by Gregor
+
+ * notebook.tcl (NoteBook::delete) Deleted also state variables
+ [Bug 1445219] reported by Eric Kemp-Benedict
+
+2009-06-25 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * combobox.tcl (ComboBox::getvalue et al) fixed bug: getvalue returned
+ first apearence of current data instead of clicked index, which may not
+ be the same if values is not unique. Additional variable _index(path)
+ added to hold click index [Bug 1610965] reported by Martin Lemburg
+
+2009-06-24 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * scrollframe.tcl (ScrollableFrame::create, ScrollableFrame::_resize,
+ ScrollableFrame::_frameConfigure) fixed two issues:
+ - Scrollbar activated even if not necessary
+ Fix: update scrolling reagion on configure event of the frame
+ - Disfunction if the frame got to small to be on the current view
+ Fix: update scrolling reagion on map or unmap events
+ [Patch 2807227] by Koen Danckaert
+
+ * buttonbox.tcl (ButtonBox::_redraw) Bug: homogeneous button width
+ not honored if button size changes after creation.
+ -uniform gridding option is used if tcl version >= 8.3.
+ [Patch 2807147] by Koen Danckaert
+
+2009-06-16 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * combobox.tcl (ComboBox::_create_popup) In dropdown list,
+ a vertical scrollbar was always shown if horizantal is used.
+ ScrolledWindow is now called with "-managed 1".
+ [Patch 2807160] by Koen Danckaert
+
+2009-06-11 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * combobox.tcl removed \ before empty line (potential
+ trap) [Bug 2804961] Andreas Kupries
+
+ * dialog.html Documented -geometry option.
+ [Bug 1634416] Erik Leunissen
+
+2009-06-10 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * no.rc added norwegian translation file
+ [Feature Request 2797153] provided by Lars Martin Hambro
+
+ * passwddlg.tcl (PasswdDlg::_verifonpasswd) check for
+ disabled password field and confirm directly.
+ [Bug 1642050] (Calvin Bascom) Enter key did not confirm
+ dialog when -passwdstate disabled.
+
+ * combobox.tcl (ComboBox::_select) included [Patch 981545],
+ but commented out - it works for me without it.
+
+2009-06-10 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * dialog.html Added documentation for option -buttonwidth
+ of Dialog
+ [Bug 1668587] (Eric Leunissen)
+
+2009-06-10 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+ * arrow.tcl initialised set _grab(oldstate) to "normal" to avoid
+ error when there is a ArrowButton::_leave without corresponding
+ ArrowButton::_enter [Bug 2762361]
+
+ * entry.tcl (Entry::_path_command) Add "invoke" to the list of
+ internally handled commands
+ [Bug 2340320] (patch by relaxmike@users.sourceforge.net)
+
+ * uitils.tcl (BWidget::place) BWidget::place used screen width
+ instead window width.
+ [Bug 1842346] (patch by Niels Gollesch ngoelles@users.sourceforge.net)
+
+ * listbox.tcl (ListBox::_redraw_selection) Added check if redrawn
+ item is on the to-delete list and thus does not exist any more as
+ BWidget. [Bug 1752755] (legolas_a20@users.sourceforge.net]
+
+2008-10-30 Jeff Hobbs <jeffh@ActiveState.com>
+
+ * tree.tcl (Tree::_node_name_rev): Return node names as they are
+ input, and properly handle :: in node names. This changes
+ internal node name reps, but should be transparent to the user,
+ except for the result of [insert].
+
+2008-05-26 Jeff Hobbs <jeffh@ActiveState.com>
+
+ * tree.tcl (Tree::_redraw_selection): do not allow empty
+ * listbox.tcl (ListBox::_redraw_selection): fill color as that
+ creates a transparent item that doesn't return a bbox. This
+ showed up on OS X/Aqua, where the listbox selectforeground
+ defaults to empty. [AS Bug 77186 74923]
+
+2007-10-31 Jeff Hobbs <jeffh@ActiveState.com>
+
+ * lang/nl.rc (new): Dutch translation [Bug 1804469]
+
+ * lang/hu.rc (new): Hungarian translation [Bug 1821842]
+
+ * tree.tcl (Tree::insert): do node_name on parent arg [Bug 1046955]
+
+ * listbox.tcl: speed up ListBox insertion significantly. [Bug 1472443]
+
+2007-05-11 Jeff Hobbs <jeffh@ActiveState.com>
+
+ * widget.tcl (Widget::theme): make sure Tk 8.5a6 is recognized as
+ having the themed widgets
+
+2006-12-20 J. Tang <tang@jtang.org>
+
+ * util.tcl: fixed BWidget::write for widgets that require
+ DynamicHelp. [bug 1518803]
+
+2006-12-05 Andreas Kupries <andreask@activestate.com>
+
+ * demo/demo.tcl (Demo::main): Removed the 'inscope' qualifier from
+ the 'package require Bwidget'. The package system already forces
+ loading and sourcing of package code in the global namespace, so
+ this is bogus.
+
+2006-11-13 J. Tang <tang@jtang.org>
+
+ * panedw.tcl: if activator is set to line then its width is set to
+ 3. --activator was an undocumented option; updated man page to
+ make it documented. Thanks to Jos Decoster for pointing this out.
+
+2006-11-10 J. Tang <tang@jtang.org>
+
+ * widget.tcl: remove relative namespace resolution of variables,
+ in anticipation of TIP 278. Widget should have been doing this
+ anyways. [bug 1579744]
+
+ * DragSite.html: noted that -draginitcmd can return an empty
+ string to prevent a drag [bug 740499]
+
+ * DropSite.html: fixed documentation with DropSite::register
+ command [bug 740474]
+
+ * combobox.tcl: allow autocomplete and autopost be
+ enabled/disabled after the widget was created [bug 1588808]; fixed
+ keysym in autopost binding [bug 1589111]
+
+ * tree.tcl: fixed error with drag & drop's autoscroll [bug
+ 1408494]
+
+ * listbox.tcl: fixed error with drag & drop's autoscroll; fixed
+ error when dropping at the end of the list
+
+ * Added dynamic help to text tags (man page updated); fixed resize
+ bug with scrollframes. Thanks to Jos Decoster for these patches.
+
+2006-10-20 Jeff Hobbs <jeffh@ActiveState.com>
+
+ * utils.tcl (BWidget::bindMouseWheel): do not make special
+ mousewheel bindings if global ones exist (like from style::as)
+
2006-09-28 J. Tang <tang@jtang.org>
**** BWIDGET 1.8.0 TAGGED ****
View
0 tcl/BWidget-1.8.0/LICENSE.txt → tcl/BWidget-1.9.0/LICENSE.txt 100755 → 100644
File renamed without changes.
View
4 tcl/BWidget-1.8.0/README.txt → tcl/BWidget-1.9.0/README.txt 100755 → 100644
@@ -1,4 +1,4 @@
-BWidget ToolKit 1.8.0 October 2006
+BWidget ToolKit 1.9.0 July 2009
Copyright (c) 1998-1999 UNIFIX.
Copyright (c) 2001-2002 ActiveState Corp.
@@ -24,7 +24,7 @@ community developers. See the ChangeLog file for details.
--------------------------------------------------------------------------
-WIDGET LIST (1.8)
+WIDGET LIST (1.9)
Simple Widgets
Label Extended Label widget
View
2 tcl/BWidget-1.8.0/arrow.tcl → tcl/BWidget-1.9.0/arrow.tcl 100755 → 100644
@@ -70,7 +70,7 @@ namespace eval ArrowButton {
variable _grab
variable _moved
- array set _grab {current "" pressed "" oldstate "" oldrelief ""}
+ array set _grab {current "" pressed "" oldstate "normal" oldrelief ""}
}
View
0 tcl/BWidget-1.8.0/bitmap.tcl → tcl/BWidget-1.9.0/bitmap.tcl 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/button.tcl → tcl/BWidget-1.9.0/button.tcl 100755 → 100644
File renamed without changes.
View
35 tcl/BWidget-1.8.0/buttonbox.tcl → tcl/BWidget-1.9.0/buttonbox.tcl 100755 → 100644
@@ -335,6 +335,11 @@ proc ButtonBox::_redraw { path } {
upvar 0 $path data
Widget::getVariable $path buttons
+ # For tk >= 8.4, -uniform gridding option is used.
+ # Otherwise, there is the constraint, that button size may not change after
+ # creation.
+ set uniformAvailable [expr {0 <= [package vcompare [info patchlevel] 8.4.0]}]
+
## We re-grid the buttons from left-to-right. As we go through
## each button, we check its spacing and which direction the
## spacing applies to. Once spacing has been applied to an index,
@@ -350,12 +355,16 @@ proc ButtonBox::_redraw { path } {
if {[string equal [Widget::getoption $path -orient] "horizontal"]} {
grid $but -column $idx -row 0 -sticky nsew
if { [Widget::getoption $path -homogeneous] } {
- set req [winfo reqwidth $but]
- if { $req > $data(max) } {
- grid columnconfigure $path [expr {2*$i}] -minsize $req
- set data(max) $req
+ if {$uniformAvailable} {
+ grid columnconfigure $path $idx -uniform koen -weight 1
+ } else {
+ set req [winfo reqwidth $but]
+ if { $req > $data(max) } {
+ grid columnconfigure $path [expr {2*$i}] -minsize $req
+ set data(max) $req
+ }
+ grid columnconfigure $path $idx -weight 1
}
- grid columnconfigure $path $idx -weight 1
} else {
grid columnconfigure $path $idx -weight 0
}
@@ -380,13 +389,15 @@ proc ButtonBox::_redraw { path } {
incr idx 2
}
- # Now that the maximum size has been calculated, go back through
- # and correctly set the size for homogeneous horizontal buttons.
- if { [string equal [Widget::getoption $path -orient] "horizontal"] && [Widget::getoption $path -homogeneous] } {
- set idx 0
- foreach i $data(buttons) {
- grid columnconfigure $path $idx -minsize $data(max)
- incr idx 2
+ if {!$uniformAvailable} {
+ # Now that the maximum size has been calculated, go back through
+ # and correctly set the size for homogeneous horizontal buttons.
+ if { [string equal [Widget::getoption $path -orient] "horizontal"] && [Widget::getoption $path -homogeneous] } {
+ set idx 0
+ foreach i $data(buttons) {
+ grid columnconfigure $path $idx -minsize $data(max)
+ incr idx 2
+ }
}
}
}
View
0 tcl/BWidget-1.8.0/color.tcl → tcl/BWidget-1.9.0/color.tcl 100755 → 100644
File renamed without changes.
View
126 tcl/BWidget-1.8.0/combobox.tcl → tcl/BWidget-1.9.0/combobox.tcl 100755 → 100644
@@ -1,7 +1,7 @@
# ----------------------------------------------------------------------------
# combobox.tcl
# This file is part of Unifix BWidget Toolkit
-# $Id: combobox.tcl,v 1.34 2006/09/28 15:46:06 dev_null42a Exp $
+# $Id: combobox.tcl,v 1.42 2009/07/07 17:28:14 oehhar Exp $
# ----------------------------------------------------------------------------
# Index of commands:
# - ComboBox::create
@@ -25,7 +25,7 @@ namespace eval ComboBox {
Widget::tkinclude ComboBox frame :cmd \
include {-relief -borderwidth -bd -background} \
- initialize {-relief sunken -borderwidth 2} \
+ initialize {-relief sunken -borderwidth 2}
Widget::bwinclude ComboBox Entry .e \
remove {-relief -bd -borderwidth -bg} \
@@ -53,13 +53,15 @@ namespace eval ComboBox {
Widget::syncoptions ComboBox Entry .e {-text {}}
::bind BwComboBox <FocusIn> [list after idle {BWidget::refocus %W %W.e}]
- ::bind BwComboBox <Destroy> [list Widget::destroy %W]
+ ::bind BwComboBox <Destroy> [list ComboBox::_destroy %W]
::bind ListBoxHotTrack <Motion> {
%W selection clear 0 end
%W activate @%x,%y
%W selection set @%x,%y
}
+
+ variable _index
}
@@ -101,7 +103,7 @@ proc ComboBox::create { path args } {
::bind $entry <Key-Down> [list ComboBox::_mapliste $path]
}
- if {[string equal $::tcl_platform(platform) "unix"]} {
+ if {[string equal [tk windowingsystem] "x11"]} {
set ipadx 0
set width 11
} else {
@@ -155,6 +157,8 @@ proc ComboBox::create { path args } {
Widget::configure $path [list -bwlistbox $bw]
}
+ set ComboBox::_index($path) -1
+
return [Widget::create ComboBox $path]
}
@@ -181,8 +185,8 @@ proc ComboBox::configure { path args } {
set entry $path.e
- set list [list -images -values -bwlistbox -hottrack]
- foreach {ci cv cb ch} [eval [linsert $list 0 Widget::hasChangedX $path]] { break }
+ set list [list -images -values -bwlistbox -hottrack -autocomplete -autopost]
+ foreach {ci cv cb ch cac cap} [eval [linsert $list 0 Widget::hasChangedX $path]] { break }
if { $ci } {
set images [Widget::cget $path -images]
@@ -193,6 +197,40 @@ proc ComboBox::configure { path args } {
}
}
+ ## If autocomplete toggled, turn bindings on/off
+ if { $cac } {
+ if {[Widget::cget $path -autocomplete]} {
+ ::bind $entry <KeyRelease> +[list $path _auto_complete %K]
+ } else {
+ set bindings [split [::bind $entry <KeyRelease>] \n]
+ if {[set idx [lsearch $bindings [list $path _auto_complete %K]]] != -1} {
+ ::bind $entry <KeyRelease> [join [lreplace $bindings $idx $idx] \n]
+ }
+ }
+ }
+
+ ## If autopost toggled, turn bindings on/off
+ if { $cap } {
+ if {[Widget::cget $path -autopost]} {
+ ::bind $entry <KeyRelease> +[list $path _auto_post %K]
+ set bindings [split [::bind $entry <Key-Up>] \n]
+ if {[set idx [lsearch $bindings [list ComboBox::_unmapliste $path]]] != -1} {
+ ::bind $entry <Key-Up> [join [lreplace $bindings $idx $idx] \n]
+ }
+ set bindings [split [::bind $entry <Key-Down>] \n]
+ if {[set idx [lsearch $bindings [list ComboBox::_mapliste $path]]] != -1} {
+ ::bind $entry <Key-Down> [join [lreplace $bindings $idx $idx] \n]
+ }
+ } else {
+ set bindings [split [::bind $entry <KeyRelease>] \n]
+ if {[set idx [lsearch $bindings [list $path _auto_post %K]]] != -1} {
+ ::bind $entry <KeyRelease> [join [lreplace $bindings $idx $idx] \n]
+ }
+ ::bind $entry <Key-Up> +[list ComboBox::_unmapliste $path]
+ ::bind $entry <Key-Down> +[list ComboBox::_mapliste $path]
+ }
+ }
+
set bw [Widget::cget $path -bwlistbox]
## If the images, bwlistbox, hottrack or values have changed,
@@ -234,6 +272,13 @@ proc ComboBox::configure { path args } {
}
}
+ # if state changed to normal and -editable false, the edit must take focus
+ if { [Widget::hasChangedX $path -state] \
+ && ![string equal [Widget::cget $path -state] "disabled"] \
+ && ![Widget::cget $path -editable] } {
+ Entry::configure $entry -takefocus 1
+ }
+
# if the dropdown listbox is shown, simply force the actual entry
# colors into it. If it is not shown, the next time the dropdown
# is shown it'll get the actual colors anyway
@@ -261,6 +306,8 @@ proc ComboBox::cget { path option } {
# Command ComboBox::setvalue
# ----------------------------------------------------------------------------
proc ComboBox::setvalue { path index } {
+ variable _index
+
set values [Widget::getMegawidgetOption $path -values]
set value [Entry::cget $path.e -text]
switch -- $index {
@@ -297,6 +344,7 @@ proc ComboBox::setvalue { path index } {
}
if { $idx >= 0 && $idx < [llength $values] } {
set newval [lindex $values $idx]
+ set _index($path) $idx
Entry::configure $path.e -text $newval
return 1
}
@@ -318,8 +366,17 @@ proc ComboBox::get { path } {
# Command ComboBox::getvalue
# ----------------------------------------------------------------------------
proc ComboBox::getvalue { path } {
+ variable _index
set values [Widget::getMegawidgetOption $path -values]
set value [Entry::cget $path.e -text]
+ # Check if an index was saved by the last setvalue operation
+ # If this index still matches it is returned
+ # This is necessary for the case when values is not unique
+ if { $_index($path) >= 0 \
+ && $_index($path) < [llength $values] \
+ && $value eq [lindex $values $_index($path)]} {
+ return $_index($path)
+ }
return [lsearch -exact $values $value]
}
@@ -401,20 +458,23 @@ proc ComboBox::_create_popup { path } {
}
}
- if { $::tcl_platform(platform) == "unix" } {
+ if {[string equal [tk windowingsystem] "x11"]} {
set sbwidth 11
} else {
set sbwidth 15
}
toplevel $shell -relief solid -bd 1
wm withdraw $shell
- update idle
wm overrideredirect $shell 1
- wm transient $shell [winfo toplevel $path]
- catch { wm attributes $shell -topmost 1 }
+ # these commands cause the combobox to behave strangely on OS X
+ if {![string equal [tk windowingsystem] "aqua"]} {
+ update idle
+ wm transient $shell [winfo toplevel $path]
+ catch { wm attributes $shell -topmost 1 }
+ }
- set sw [ScrolledWindow $shell.sw -managed 0 -size $sbwidth -ipad 0]
+ set sw [ScrolledWindow $shell.sw -managed 1 -size $sbwidth -ipad 0]
if {$bw} {
set listb [ListBox $shell.listb \
@@ -457,7 +517,7 @@ proc ComboBox::_create_popup { path } {
pack $sw -fill both -expand yes
$sw setwidget $listb
- ::bind $listb <Return> "ComboBox::_select [list $path] \[%W curselection\]"
+ ::bind $listb <Return> "ComboBox::_select [list $path] \[$listb curselection\]"
::bind $listb <Escape> [list ComboBox::_unmapliste $path]
::bind $listb <FocusOut> [list ComboBox::_focus_out $path]
}
@@ -483,7 +543,7 @@ proc ComboBox::_recreate_popup { path } {
}
}
- if { $::tcl_platform(platform) == "unix" } {
+ if { [string equal [tk windowingsystem] "x11"] } {
set sbwidth 11
} else {
set sbwidth 15
@@ -502,7 +562,7 @@ proc ComboBox::_recreate_popup { path } {
set listb $shell.listb
destroy $shell.sw
- set sw [ScrolledWindow $shell.sw -managed 0 -size $sbwidth -ipad 0]
+ set sw [ScrolledWindow $shell.sw -managed 1 -size $sbwidth -ipad 0]
$listb configure \
-height $h \
-font [Widget::cget $path -font] \
@@ -573,23 +633,29 @@ proc ComboBox::_mapliste { path } {
wm deiconify $path.shell
raise $path.shell
BWidget::focus set $listb
- BWidget::grab global $path
+ if { ! [string equal [tk windowingsystem] "aqua"] } {
+ BWidget::grab global $path
+ }
}
# ----------------------------------------------------------------------------
# Command ComboBox::_unmapliste
# ----------------------------------------------------------------------------
proc ComboBox::_unmapliste { path {refocus 1} } {
+ # On aqua, state is zoomed, otherwise normal
if {[winfo exists $path.shell] && \
- [string equal [wm state $path.shell] "normal"]} {
- BWidget::grab release $path
- BWidget::focus release $path.shell.listb $refocus
- # Update now because otherwise [focus -force...] makes the app hang!
- if {$refocus} {
- update
- focus -force $path.e
- }
+ ( [string equal [wm state $path.shell] "normal"] ||
+ [string equal [wm state $path.shell] "zoomed"] ) } {
+ if {![string equal [tk windowingsystem] "aqua"]} {
+ BWidget::grab release $path
+ BWidget::focus release $path.shell.listb $refocus
+ # Update now because otherwise [focus -force...] makes the app hang!
+ if {$refocus} {
+ update
+ focus -force $path.e
+ }
+ }
wm withdraw $path.shell
ArrowButton::configure $path.a -relief raised
}
@@ -611,7 +677,9 @@ proc ComboBox::_select { path index } {
}
}
$path.e selection clear
- $path.e selection range 0 end
+ if {[$path.e cget -exportselection]} {
+ $path.e selection range 0 end
+ }
}
@@ -758,7 +826,7 @@ proc ComboBox::_auto_post { path key } {
set x -1
}
if {([string length $key] > 1 && [string tolower $key] != $key) && \
- [string equal $key "Backspace"] != 0 && \
+ [string equal $key "BackSpace"] != 0 && \
[string equal $key "Up"] != 0 && \
[string equal $key "Down"] != 0} {
return
@@ -807,3 +875,11 @@ proc ComboBox::_auto_post { path key } {
$path.shell.listb see $x
}
}
+# ------------------------------------------------------------------------------
+# Command ComboBox::_destroy
+# ------------------------------------------------------------------------------
+proc ComboBox::_destroy { path } {
+ variable _index
+ Widget::destroy $path
+ unset _index($path)
+}
View
0 tcl/BWidget-1.8.0/demo/basic.tcl → tcl/BWidget-1.9.0/demo/basic.tcl 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/demo/bwidget.xbm → tcl/BWidget-1.9.0/demo/bwidget.xbm 100755 → 100644
File renamed without changes.
View
2 tcl/BWidget-1.8.0/demo/demo.tcl → tcl/BWidget-1.9.0/demo/demo.tcl 100755 → 100644
@@ -194,7 +194,7 @@ proc Demo::main {} {
variable DEMODIR
lappend ::auto_path [file dirname $DEMODIR]
- namespace inscope :: package require BWidget
+ package require BWidget
option add *TitleFrame.l.font {helvetica 11 bold italic}
View
0 tcl/BWidget-1.8.0/demo/dnd.tcl → tcl/BWidget-1.9.0/demo/dnd.tcl 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/demo/manager.tcl → tcl/BWidget-1.9.0/demo/manager.tcl 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/demo/select.tcl → tcl/BWidget-1.9.0/demo/select.tcl 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/demo/tmpldlg.tcl → tcl/BWidget-1.9.0/demo/tmpldlg.tcl 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/demo/tree.tcl → tcl/BWidget-1.9.0/demo/tree.tcl 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/demo/x1.xbm → tcl/BWidget-1.9.0/demo/x1.xbm 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/dialog.tcl → tcl/BWidget-1.9.0/dialog.tcl 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/dragsite.tcl → tcl/BWidget-1.9.0/dragsite.tcl 100755 → 100644
File renamed without changes.
View
3 tcl/BWidget-1.8.0/dropsite.tcl → tcl/BWidget-1.9.0/dropsite.tcl 100755 → 100644
@@ -1,7 +1,7 @@
# ------------------------------------------------------------------------------
# dropsite.tcl
# This file is part of Unifix BWidget Toolkit
-# $Id: dropsite.tcl,v 1.7 2003/10/20 21:23:52 damonc Exp $
+# $Id: dropsite.tcl,v 1.8 2009/06/30 16:17:37 oehhar Exp $
# ------------------------------------------------------------------------------
# Index of commands:
# - DropSite::include
@@ -150,6 +150,7 @@ proc DropSite::register { path args } {
set drop(overcmd) $overcmd
foreach {type ops} $types {
set drop($type,ops) {}
+ set masklist {}
foreach {descop lmod} $ops {
if { ![llength $descop] || [llength $descop] > 3 } {
return -code error "invalid operation description \"$descop\""
View
227 tcl/BWidget-1.8.0/dynhelp.tcl → tcl/BWidget-1.9.0/dynhelp.tcl 100755 → 100644
@@ -1,7 +1,7 @@
# ----------------------------------------------------------------------------
# dynhelp.tcl
# This file is part of Unifix BWidget Toolkit
-# $Id: dynhelp.tcl,v 1.15 2006/03/23 23:32:12 dev_null42a Exp $
+# $Id: dynhelp.tcl,v 1.20 2009/07/15 16:50:16 oehhar Exp $
# ----------------------------------------------------------------------------
# Index of commands:
# - DynamicHelp::configure
@@ -16,8 +16,6 @@
# - DynamicHelp::_init
# ----------------------------------------------------------------------------
-# JDC: allow variable and ballon help at the same timees
-
namespace eval DynamicHelp {
Widget::define DynamicHelp dynhelp -classonly
@@ -42,6 +40,7 @@ namespace eval DynamicHelp {
variable _registered
variable _canvases
+ variable _texts
variable _top ".help_shell"
variable _id ""
@@ -59,7 +58,6 @@ namespace eval DynamicHelp {
bind BwHelpBalloon <Destroy> {DynamicHelp::_unset_help %W}
bind BwHelpVariable <Enter> {DynamicHelp::_motion_info %W}
- bind BwHelpVariable <Motion> {DynamicHelp::_motion_info %W}
bind BwHelpVariable <Leave> {DynamicHelp::_leave_info %W}
bind BwHelpVariable <Destroy> {DynamicHelp::_unset_help %W}
@@ -92,6 +90,7 @@ proc DynamicHelp::include { class type } {
set helpoptions [list \
[list -helptext String "" 0] \
[list -helpvar String "" 0] \
+ [list -helpcmd String "" 0] \
[list -helptype Enum $type 0 [list balloon variable]] \
]
Widget::declare $class $helpoptions
@@ -133,8 +132,20 @@ proc DynamicHelp::register { path type args } {
variable _registered
set len [llength $args]
- if {$type == "balloon" && $len > 1} { set type canvasBalloon }
- if {$type == "variable" && $len > 2} { set type canvasVariable }
+ if {$type == "balloon" && $len > 1} {
+ switch -exact -- [winfo class $path] {
+ "Canvas" { set type canvasBalloon }
+ "Text" -
+ "Ctext" { set type textBalloon }
+ }
+ }
+ if {$type == "variable" && $len > 2} {
+ switch -exact -- [winfo class $path] {
+ "Canvas" { set type canvasVariable }
+ "Text" -
+ "Ctext" { set type textVariable }
+ }
+ }
if { ![winfo exists $path] } {
_unset_help $path
@@ -167,6 +178,19 @@ proc DynamicHelp::register { path type args } {
_add_canvas_balloon $path $text $tagOrItem
}
+ textBalloon {
+ set tagOrItem [lindex $args 0]
+ set text [lindex $args 1]
+ if {$text == ""} {
+ if {[info exists _registered($path,$tagOrItem,balloon)]} {
+ unset _registered($path,$tagOrItem,balloon)
+ }
+ return 0
+ }
+
+ _add_text_balloon $path $text $tagOrItem
+ }
+
variable {
set var [lindex $args 0]
set text [lindex $args 1]
@@ -194,6 +218,20 @@ proc DynamicHelp::register { path type args } {
_add_canvas_variable $path $text $var $tagOrItem
}
+ textVariable {
+ set tagOrItem [lindex $args 0]
+ set var [lindex $args 1]
+ set text [lindex $args 2]
+ if {$text == "" || $var == ""} {
+ if {[info exists _registered($path,$tagOrItem,variable)]} {
+ unset _registered($path,$tagOrItem,variable)
+ }
+ return 0
+ }
+
+ _add_text_variable $path $text $var $tagOrItem
+ }
+
menu {
set var [lindex $args 0]
if {$var == ""} {
@@ -216,7 +254,7 @@ proc DynamicHelp::register { path type args } {
set text [lindex $args 1]
set index [lindex $args 0]
if {$text == "" || $index == ""} {
- set idx [lsearch $_registed($path) [list $index *]]
+ set idx [lsearch $_registered($path) [list $index *]]
set _registered($path) [lreplace $_registered($path) $idx $idx]
return 0
}
@@ -255,8 +293,20 @@ proc DynamicHelp::add { path args } {
switch -- $data(-type) {
"balloon" {
if {$data(-item) != ""} {
- _add_canvas_balloon $path $data(-text) $data(-item)
- set item $path,$data(-item)
+ switch -exact -- [winfo class $path] {
+ "Canvas" {
+ _add_canvas_balloon $path $data(-text) $data(-item)
+ set item $path,$data(-item)
+ }
+ "Text" -
+ "Ctext" {
+ _add_text_balloon $path $data(-text) $data(-item)
+ set item $path,$data(-item)
+ }
+ default {
+ _add_balloon $path $data(-text)
+ }
+ }
} else {
_add_balloon $path $data(-text)
}
@@ -269,8 +319,20 @@ proc DynamicHelp::add { path args } {
"variable" {
set var $data(-variable)
if {$data(-item) != ""} {
- _add_canvas_variable $path $data(-text) $var $data(-item)
- set item $path,$data(-item)
+ switch -exact -- [winfo class $path] {
+ "Canvas" {
+ _add_canvas_variable $path $data(-text) $var $data(-item)
+ set item $path,$data(-item)
+ }
+ "Text" -
+ "Ctext" {
+ _add_text_variable $path $data(-text) $var $data(-item)
+ set item $path,$data(-item)
+ }
+ default {
+ _add_variable $path $data(-text) $var
+ }
+ }
} else {
_add_variable $path $data(-text) $var
}
@@ -346,6 +408,28 @@ proc DynamicHelp::_add_canvas_balloon { path text tagOrItem } {
$path addtag BwHelpBalloon withtag $tagOrItem
}
+
+proc DynamicHelp::_add_text_balloon { path text tagOrItem } {
+ variable _texts
+ variable _registered
+
+ set _registered($path,$tagOrItem,balloon) $text
+
+ if { ![info exists _texts($path,$tagOrItem,balloon)] } {
+ $path tag bind $tagOrItem <Enter> \
+ [list DynamicHelp::_motion_balloon enter $path %X %Y 0 1]
+ $path tag bind $tagOrItem <Motion> \
+ [list DynamicHelp::_motion_balloon motion $path %X %Y 0 1]
+ $path tag bind $tagOrItem <Leave> \
+ [list DynamicHelp::_motion_balloon leave $path %X %Y 0 1]
+ $path tag bind $tagOrItem <Button> \
+ [list DynamicHelp::_motion_balloon button $path %X %Y 0 1]
+
+ set _texts($path,$tagOrItem,balloon) 1
+ }
+}
+
+
proc DynamicHelp::_add_variable { path text varName } {
variable _registered
set _registered($path,variable) [list $varName $text]
@@ -378,6 +462,26 @@ proc DynamicHelp::_add_canvas_variable { path text varName tagOrItem } {
}
+proc DynamicHelp::_add_text_variable { path text varName tagOrItem } {
+ variable _texts
+ variable _registered
+
+ set _registered($path,$tagOrItem,variable) [list $varName $text]
+
+ if {![info exists _texts($path,$tagOrItem,variable)]} {
+
+ $path tag bind $tagOrItem <Enter> \
+ [list DynamicHelp::_motion_info $path 0 1]
+ $path tag bind $tagOrItem <Motion> \
+ [list DynamicHelp::_motion_info $path 0 1]
+ $path tag bind $tagOrItem <Leave> \
+ [list DynamicHelp::_leave_info $path 0 1]
+
+ set _texts($path,$tagOrItem,variable) 1
+ }
+}
+
+
proc DynamicHelp::_add_menu { path varName } {
variable _registered
@@ -406,14 +510,18 @@ proc DynamicHelp::_add_menuentry { path text index } {
# ----------------------------------------------------------------------------
# Command DynamicHelp::_motion_balloon
# ----------------------------------------------------------------------------
-proc DynamicHelp::_motion_balloon { type path x y {isCanvasItem 0} } {
+proc DynamicHelp::_motion_balloon { type path x y {isCanvasItem 0} {isTextItem 0} } {
variable _top
variable _id
variable _delay
variable _current_balloon
set w $path
- if {$isCanvasItem} { set path [_get_canvas_path $path balloon] }
+ if {$isCanvasItem} {
+ set path [_get_canvas_path $path balloon]
+ } elseif {$isTextItem} {
+ set path [_get_text_path $path balloon]
+ }
if { $_current_balloon != $path && $type == "enter" } {
set _current_balloon $path
@@ -430,6 +538,8 @@ proc DynamicHelp::_motion_balloon { type path x y {isCanvasItem 0} } {
set cmd [list DynamicHelp::_show_help $path $w $x $y]
set _id [after $_delay $cmd]
}
+ # Bug 923942 proposes to destroy on motion to remove dynhelp on motion.
+ # this might be an optional behaviour in future versions
} else {
destroy $_top
set _current_balloon ""
@@ -441,12 +551,16 @@ proc DynamicHelp::_motion_balloon { type path x y {isCanvasItem 0} } {
# ----------------------------------------------------------------------------
# Command DynamicHelp::_motion_info
# ----------------------------------------------------------------------------
-proc DynamicHelp::_motion_info { path {isCanvasItem 0} } {
+proc DynamicHelp::_motion_info { path {isCanvasItem 0} {isTextItem 0} } {
variable _saved
variable _registered
variable _current_variable
- if {$isCanvasItem} { set path [_get_canvas_path $path variable] }
+ if {$isCanvasItem} {
+ set path [_get_canvas_path $path variable]
+ } elseif {$isTextItem} {
+ set path [_get_text_path $path variable]
+ }
if { $_current_variable != $path
&& [info exists _registered($path,variable)] } {
@@ -455,7 +569,7 @@ proc DynamicHelp::_motion_info { path {isCanvasItem 0} } {
if {![info exists _saved]} { set _saved [GlobalVar::getvar $varName] }
set string [lindex $_registered($path,variable) 1]
if {[info exists _registered($path,command)]} {
- set string [eval $_registered($path,command)]
+ set string [uplevel #0 $_registered($path,command)]
}
GlobalVar::setvar $varName $string
set _current_variable $path
@@ -465,39 +579,47 @@ proc DynamicHelp::_motion_info { path {isCanvasItem 0} } {
# ----------------------------------------------------------------------------
# Command DynamicHelp::_leave_info
+# Leave event may be called twice (in case of pointer grab)
# ----------------------------------------------------------------------------
-proc DynamicHelp::_leave_info { path {isCanvasItem 0} } {
+proc DynamicHelp::_leave_info { path {isCanvasItem 0} {isTextItem 0} } {
variable _saved
variable _registered
variable _current_variable
- if {$isCanvasItem} { set path [_get_canvas_path $path variable] }
+ if {$isCanvasItem} {
+ set path [_get_canvas_path $path variable]
+ } elseif {$isTextItem} {
+ set path [_get_text_path $path variable]
+ }
- if { [info exists _registered($path,variable)] } {
+ if { [string equal $_current_variable $path] \
+ && [info exists _registered($path,variable)] } {
set varName [lindex $_registered($path,variable) 0]
GlobalVar::setvar $varName $_saved
+ unset _saved
+ set _current_variable ""
}
- unset _saved
- set _current_variable ""
}
# ----------------------------------------------------------------------------
# Command DynamicHelp::_menu_info
-# Version of R1v1 restored, due to lack of [winfo ismapped] and <Unmap>
-# under windows for menu.
# ----------------------------------------------------------------------------
+# We have to check for unmap event on Unix. On Windows, unmap
+# is not delivered, but <<MenuSelect>> is triggered appropriately when menu
+# is unmapped.
proc DynamicHelp::_menu_info { event path } {
variable _registered
if { [info exists _registered($path)] } {
set index [$path index active]
set varName [lindex $_registered($path) 0]
- if { ![string equal $index "none"] &&
+ if { ![string equal $event "unmap"] &&
+ ![string equal $index "none"] &&
[set idx [lsearch $_registered($path) [list $index *]]] != -1 } {
set string [lindex [lindex $_registered($path) $idx] 1]
if {[info exists _registered($path,$index,command)]} {
- set string [eval $_registered($path,$index,command)]
+ set string [uplevel #0 $_registered($path,$index,command)]
}
GlobalVar::setvar $varName $string
} else {
@@ -529,7 +651,7 @@ proc DynamicHelp::_show_help { path w x y } {
}
if {[info exists _registered($path,command)]} {
- set string [eval $_registered($path,command)]
+ set string [uplevel #0 $_registered($path,command)]
}
if {$string == ""} { return }
@@ -568,14 +690,27 @@ proc DynamicHelp::_show_help { path w x y } {
set scrheight [winfo vrootheight .]
set width [winfo reqwidth $_top]
set height [winfo reqheight $_top]
- incr y 12
- incr x 8
- if { $x+$width > $scrwidth } {
- set x [expr {$scrwidth - $width}]
+ # On windows multi screen configurations, coordinates may get outside
+ # the main screen. We suppose that all screens have the same size
+ # because it is not possible to query the size of the other screens.
+
+ set screenx [expr {$x % $scrwidth} ]
+ set screeny [expr {$y % $scrheight} ]
+
+ # Increment the required size by the deplacement from the passed point
+ incr width 8
+ incr height 12
+
+ if { $screenx+$width > $scrwidth } {
+ set x [expr {$x + ($scrwidth - $screenx) - ($width - 8)}]
+ } else {
+ incr x 8
}
- if { $y+$height > $scrheight } {
- set y [expr {$y - 12 - $height}]
+ if { $screeny+$height > $scrheight } {
+ set y [expr {$y - $height}]
+ } else {
+ incr y 12
}
wm geometry $_top "+$x+$y"
@@ -592,17 +727,20 @@ proc DynamicHelp::_show_help { path w x y } {
# ----------------------------------------------------------------------------
proc DynamicHelp::_unset_help { path } {
variable _canvases
+ variable _texts
variable _registered
variable _top
+ variable _current_balloon
if {[info exists _registered($path)]} { unset _registered($path) }
if {[winfo exists $path]} {
set cpath [BWidget::clonename $path]
if {[info exists _registered($cpath)]} { unset _registered($cpath) }
}
array unset _canvases $path,*
+ array unset _texts $path,*
array unset _registered $path,*
- destroy $_top
+ if {[string equal $path $_current_balloon]} {destroy $_top}
}
# ----------------------------------------------------------------------------
@@ -622,4 +760,27 @@ proc DynamicHelp::_get_canvas_path { path type {item ""} } {
if {![info exists _registered($check,$type)]} { continue }
return $check
}
+
+ return $path
+}
+
+# ----------------------------------------------------------------------------
+# Command DynamicHelp::_get_text_path
+# ----------------------------------------------------------------------------
+proc DynamicHelp::_get_text_path { path type {item ""} } {
+ variable _registered
+
+ if {$item == ""} { set item [$path tag names current] }
+
+ ## Check the tags related to this item for the one that
+ ## represents our text. If we have text specific to this
+ ## item or for 'all' items, they override any other tags.
+ eval [list lappend tags $item all] $item
+ foreach tag $tags {
+ set check $path,$tag
+ if {![info exists _registered($check,$type)]} { continue }
+ return $check
+ }
+
+ return $path
}
View
13 tcl/BWidget-1.8.0/entry.tcl → tcl/BWidget-1.9.0/entry.tcl 100755 → 100644
@@ -1,7 +1,7 @@
# ------------------------------------------------------------------------------
# entry.tcl
# This file is part of Unifix BWidget Toolkit
-# $Id: entry.tcl,v 1.21 2004/04/21 22:26:30 hobbs Exp $
+# $Id: entry.tcl,v 1.22 2009/06/10 08:48:06 oehhar Exp $
# ------------------------------------------------------------------------------
# Index of commands:
# - Entry::create
@@ -262,10 +262,13 @@ proc Entry::invoke { path } {
# Command Entry::_path_command
# ------------------------------------------------------------------------------
proc Entry::_path_command { path cmd larg } {
- if {[string equal $cmd "configure"] || [string equal $cmd "cget"]} {
- return [eval [linsert $larg 0 Entry::$cmd $path]]
- } else {
- return [eval [linsert $larg 0 $path:cmd $cmd]]
+ switch -exact -- $cmd {
+ configure - cget - invoke {
+ return [eval [linsert $larg 0 Entry::$cmd $path]]
+ }
+ default {
+ return [eval [linsert $larg 0 $path:cmd $cmd]]
+ }
}
}
View
0 tcl/BWidget-1.8.0/font.tcl → tcl/BWidget-1.9.0/font.tcl 100755 → 100644
File renamed without changes.
View
32 tcl/BWidget-1.9.0/images/CVS/Entries
@@ -0,0 +1,32 @@
+/bold.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/copy.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/cut.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/dragfile.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/dragicon.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/error.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/file.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/folder.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/hourglass.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/info.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/italic.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/minus.xbm/1.1.1.1/Tue Aug 3 20:20:24 1999//
+/new.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/opcopy.xbm/1.1.1.1/Tue Aug 3 20:20:24 1999//
+/open.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/openfold.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/oplink.xbm/1.1.1.1/Tue Aug 3 20:20:24 1999//
+/opmove.xbm/1.1.1.1/Tue Aug 3 20:20:24 1999//
+/overstrike.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/palette.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/passwd.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/paste.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/plus.xbm/1.1.1.1/Tue Aug 3 20:20:24 1999//
+/print.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/question.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/redo.gif/1.2/Fri Aug 20 01:54:30 1999/-kb/
+/save.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/target.xbm/1.2/Thu Feb 24 18:06:46 2000//
+/underline.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/undo.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+/warning.gif/1.1.1.1/Tue Aug 3 20:20:24 1999/-kb/
+D
View
1 tcl/BWidget-1.9.0/images/CVS/Repository
@@ -0,0 +1 @@
+bwidget/images
View
1 tcl/BWidget-1.9.0/images/CVS/Root
@@ -0,0 +1 @@
+:ext:oehhar@tcllib.cvs.sourceforge.net:/cvsroot/tcllib
View
0 tcl/BWidget-1.8.0/images/bold.gif → tcl/BWidget-1.9.0/images/bold.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/copy.gif → tcl/BWidget-1.9.0/images/copy.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/cut.gif → tcl/BWidget-1.9.0/images/cut.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/dragfile.gif → tcl/BWidget-1.9.0/images/dragfile.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/dragicon.gif → tcl/BWidget-1.9.0/images/dragicon.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/error.gif → tcl/BWidget-1.9.0/images/error.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/file.gif → tcl/BWidget-1.9.0/images/file.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/folder.gif → tcl/BWidget-1.9.0/images/folder.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/hourglass.gif → tcl/BWidget-1.9.0/images/hourglass.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/info.gif → tcl/BWidget-1.9.0/images/info.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/italic.gif → tcl/BWidget-1.9.0/images/italic.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/minus.xbm → tcl/BWidget-1.9.0/images/minus.xbm 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/images/new.gif → tcl/BWidget-1.9.0/images/new.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/opcopy.xbm → tcl/BWidget-1.9.0/images/opcopy.xbm 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/images/open.gif → tcl/BWidget-1.9.0/images/open.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/openfold.gif → tcl/BWidget-1.9.0/images/openfold.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/oplink.xbm → tcl/BWidget-1.9.0/images/oplink.xbm 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/images/opmove.xbm → tcl/BWidget-1.9.0/images/opmove.xbm 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/images/overstrike.gif → tcl/BWidget-1.9.0/images/overstrike.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/palette.gif → tcl/BWidget-1.9.0/images/palette.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/passwd.gif → tcl/BWidget-1.9.0/images/passwd.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/paste.gif → tcl/BWidget-1.9.0/images/paste.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/plus.xbm → tcl/BWidget-1.9.0/images/plus.xbm 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/images/print.gif → tcl/BWidget-1.9.0/images/print.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/question.gif → tcl/BWidget-1.9.0/images/question.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/redo.gif → tcl/BWidget-1.9.0/images/redo.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/save.gif → tcl/BWidget-1.9.0/images/save.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/target.xbm → tcl/BWidget-1.9.0/images/target.xbm 100755 → 100644
File renamed without changes.
View
0 tcl/BWidget-1.8.0/images/underline.gif → tcl/BWidget-1.9.0/images/underline.gif 100755 → 100644
File renamed without changes
View
0 tcl/BWidget-1.8.0/images/undo.gif → tcl/BWidget-1.9.0/images/undo.gif 100755 → 100644
File renamed without changes
View
0