mouse click 2

[stewang]

Hello all:
I want to pop up a window when I click
on the right mouse in the listbox, would
anyone give me some idea how to implement this, please.

rgds
stewang

button .b -text "button" -bg white      -command newWindow
pack .b

proc newWindow {} {
 toplevel .t
 global lv
 set lv {"test" "test"}
 frame .t.listframe
 listbox .t.listframe.namelist -listvariable lv
 pack .t.listframe.namelist -side top
 pack .t.listframe
}

 

[ramsunder]

Hi,
you can bind the call to procedure newWindow to Button-3 event of listbox

bind .t.listframe.namelist <Button-3> {#command to generate/popup new window}

for e.g. this will pop up a new toplevel

bind .t.listframe.namelist <Button-3> {toplevel .newwind}


I hope this will help you.

 

[ulis]

An example with a menu:

  menu .m -title popup
  .m add command -label Ok -command {tk_messageBox -message Ok}
  label .l -text "right click the mouse to open the menu"
  pack .l -pady 20 -padx 20
  bind . <3> {eval .m post [winfo pointerxy .]}

HTH

ulis

 

[stewang]

Thanks for ramsunder and ulis give me different examples, they work very well.


rgds
stewang