[Tcl-bugs] [ tktoolkit-Bugs-2108411 ] checkbutton menu entry odd behavior

[SourceForge.net <no...@so...>]

Bugs item #2108411, was opened at 2008-09-12 20:14
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=2108411&group_id=12997

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: 10. Generic Menus
Group: development: 8.6a3
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Joe Mistachkin (mistachkin)
Assigned to: Todd Helfter (tmh)
Summary: checkbutton menu entry odd behavior

Initial Comment:

# This should be the minimal repro script: 

pack [entry .entry]; update

menu .menuBar
. configure -menu .menuBar

menu .menuBar.testMenu -tearoff 0

tk_messageBox -message \
    "ismapped = [winfo ismapped .entry]"

.menuBar.testMenu add checkbutton -label \
    "Menu Label Here" -underline 0 \
    -indicatoron [winfo ismapped .entry] \
    -command [list doStuff]

set index [.menuBar.testMenu index "Menu Label Here"]

#
# BUG 1: The -variable option has not been set,
#        yet it has the same value as the -label 
#        option?
#
tk_messageBox -message \
    "-variable = [.menuBar.testMenu entryconfigure $index -variable]"

.menuBar add cascade -menu .menuBar.testMenu \
    -label "Menu" -underline 0

bind . <F2> [list console show]
bind . <F7> [list doStuff]

wm geometry . 200x200

proc doStuff {} {
  if {[winfo ismapped .entry]} then {
    pack forget .entry; update
  } else {
    pack .entry; update
  }

  tk_messageBox -message \
      "ismapped = [winfo ismapped .entry]"

  #
  # BUG 2: This does not seem to have any effect 
  #        on the user interface.
  #
  .menuBar.testMenu entryconfigure $::index \
      -indicatoron [winfo ismapped .entry]
}


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=2108411&group_id=12997