tkdesk on cygwin/X and a small patch

[Doug V. <ro...@so...>]

Hi,
Been a year since any posts.  Ping.

My goal is to offer tkdesk for cygwin/X as a static package that includes
X based tcl/tk libs.  I've been using this on my machine for a couple weeks now
without any issues.

I've got tcl/tk 8.4.11, itcl 3.3, and BLT 2.4z compiled as pure unix static
libs.  This is because no on maintains the X tcl/tk for cygwin/X because of
issues with the cygwin maintainer and his maintenence of a windows tcl/tk
for use with gdb insight.  I don't want to step into that.

I'll need to re-add the static code from the older tkdesk.  I tried to use
the supplied tcl/tk, but the windows based tcl/tk implements the registry
differently and tkdesk usage of the registry for default look & feel didn't
quite work right.  For instance, setting a default scrollbar width in the
registry didn't work.  Each scollbar would need to be set using "pathname
command".  There are other complications as well.

It's not on your wish list, but tkdesk really needs extended acl capability to
be useful on most modern file systems, including cygwin on ntfs.  I'll be
adding that capability for myself and would like to contribute it upstream.
My thinking now is that will be another itcl class.  Or maybe someone
already did this?

It always bothered me that the vertical scrollbars sometimes wouldn't disappear
when in dynamic scrollbar mode.  Here's a simple patch that fixes that.

Regards, Doug

--- dsk_Listbox.tcl.orig        2005-06-30 16:13:16.784000000 -0700
+++ dsk_Listbox.tcl     2005-06-30 16:24:27.862125000 -0700
@@ -724,8 +724,7 @@
             if !$sb_packed {
                 pack forget $frame.rframe
                 pack $frame.sb -side left -padx $pad -fill y
-               pack $frame.corner -in $frame.bframe -side $sbside -fill y \
-                       -before $frame.hsb
+               pack $frame.corner -in $frame.bframe -side $sbside -fill y
                 raise $frame.corner
                 set sb_packed 1
             }
@@ -737,8 +736,7 @@
             if !$sb_packed {
                 pack forget $frame.rframe
                 pack $frame.sb -side left -padx $pad -fill y
-               pack $frame.corner -in $frame.bframe -side $sbside -fill y \
-                       -before $frame.hsb
+               pack $frame.corner -in $frame.bframe -side $sbside -fill y
                 raise $frame.corner
                 set sb_packed 1
             }