BWidget patch for plus-patch 
Author Message
 BWidget patch for plus-patch

Hi there,

Here is the patch TO APPLY TO WORKING 8.1b1 VERSION of widget.tcl
to make BWidget working with plus-patch.
The new file widget.tcl and fixed package will be soon available
on our web site.

--

--
Eric Boudaillier
UNIFIX - http://www.*-*-*.com/
--
Tcl/Tk - Less Code, More Results.



Sun, 12 Aug 2001 03:00:00 GMT  
 BWidget patch for plus-patch

Quote:

> Hi there,

hmmm, I've forgotten the attachment...

[ widget-patch 1K ]
Index: BWidget/widget.tcl
diff -c BWidget/widget.tcl:1.2 BWidget/widget.tcl:1.3
*** BWidget/widget.tcl:1.2      Mon Feb 22 10:46:58 1999
--- BWidget/widget.tcl  Wed Feb 24 18:02:24 1999
***************
*** 532,543 ****
              set opt [lindex $optlist 0]
              if { [llength $optlist] == 2 } {
                  set refsyn [lindex $optlist 1]
!                 if { [string index $refsyn 0] == "-" } {
!                     # search for option
!                     set idx [lsearch $config [list $refsyn * *]]
!                 } else {
!                     # search for class
!                     set idx [lsearch $config [list * $refsyn *]]
                  }
                  set syn [lindex [lindex $config $idx] 0]
                  set def [lindex [lindex $config $idx] 4]
--- 532,551 ----
              set opt [lindex $optlist 0]
              if { [llength $optlist] == 2 } {
                  set refsyn [lindex $optlist 1]
!                 # search for class
!                 set idx [lsearch $config [list * $refsyn *]]
!                 if { $idx == -1 } {
!                     if { [string index $refsyn 0] == "-" } {
!                         # search for option (tk8.1b1 bug)
!                         set idx [lsearch $config [list $refsyn * *]]
!                     } else {
!                         # last resort
!                         set idx [lsearch $config [list -[string tolower $refsyn] * *]]
!                     }
!                     if { $idx == -1 } {
!                         # fed up with "can't read classopt()"
!                         return -code error "can't find option of synonym $opt"
!                     }
                  }
                  set syn [lindex [lindex $config $idx] 0]
                  set def [lindex [lindex $config $idx] 4]



Sun, 12 Aug 2001 03:00:00 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. BWidget for plus-patch

2. Stubs, plus patch, dash patch, img, and more

3. gawk FPAT patch: patch to the patch

4. PATCHES: Patch Archive Updated http://www.cs.uoregon.edu/research/tcl/patch/

5. STSC APL*PLUS for Mac II: any patches?

6. CW4 Beta 3 plus Patch

7. A Tcl 8.3.1 (plus patches) and latest TclX problem

8. ANNOUNCE: Tcl/Tk 8.3.1 (with plus patch) rpms

9. ANNOUNCE: Tcl 8.3.1 (with plus patch) rpm

10. tclX 8.2.0 and the Plus patch

11. ANNOUNCE: Tcl/Tk 8.3.0 (with plus patch) rpms

12. Comments on the Plus Patch 8.3.0

 

 
Powered by phpBB® Forum Software