[MACTCL] pulsing wish window

[Robert K. <ro...@na...>]

When I source this file in wish 8.0.5 on macOS 8.0 or 8.5,
it builds 4 listboxes horzontally aligned and a vertical scrollbar.
If I don't add '-padx 1' (1 or more) to the grid command of the
scrollbar or
one of its parent frames, my toplevel pulses at the point where
the scrollbar touches it. Bug? Fixed in later releases?

Thanks.

Robert Karen

#--------------------------------------------
proc filenameListsTestCase {parent {okButton {}} {searchButtonCmdPrefix
""}} {
# creates 4 parallel listboxes and an entry for the result.
# returns a list containing:
# 1. the new frame that holds them all. a child of $parent 
# 2. and the runidEntry path.
# 3. search button path, if it exists.
# if searchButtonCmdPrefix is included, create a search button adjacent
to entry box,
# if searchButtonCmdPrefix is null, then the
# search button, if it exists, is in a different place in the window.

  global tcl_platform
  if {![winfo exists $parent]} {
    tk_messageBox -icon error -title "New age" \
      -message "Usage: filenameLists <parent>. Parent must exist."
  }

  set run_parent [frame $parent.l]
  # set up for runid list
  set listFrame [frame $run_parent.frame]
  set runidListName "$listFrame.list"
  set runidListName1 [listbox $listFrame.list1 -width 20 \
    -height 12]
  set runidListName2 [listbox $listFrame.list2 -width 10 \
    -height 12 ]
  set runidListName3 [listbox $listFrame.list3 -width 11 \
    -height 12 ]
  set runidListName4 [listbox $listFrame.list4 -width 11 \
    -height 12 ]
  scrollbar $listFrame.scr -orient vertical 
    #-command "scrollRunidList $runidListName"

  grid $runidListName1 $runidListName2 $runidListName3 $runidListName4
$listFrame.scr -sticky ns 
  grid $runidListName1 $runidListName2 $runidListName3 $runidListName4 \
    -sticky we
  grid $listFrame.scr -sticky ns
  grid $listFrame -sticky nsew -pady 0 ;# -padx 1
  pack $run_parent -expand true -fill both
  return $run_parent
}

toplevel .t; frame .t.f; set tmp [filenameListsTestCase .t.f]; pack .t.f
puts "you should see a fast wiggling of the right border of the 
scrollbar/edge of window. if you uncomment the -padx 1 near the bottom
of the proc in the line
'grid \$listFrame -stikcy nsew -pady y 0' it stops 
the wiggle effect"
puts "more info:
%array get tcl_platform
byteOrder bigEndian osVersion 8.0 machine ppc platform macintosh os
MacOS
%info patch
8.0.5
I get same result on machine with macOS 8.5.
"