popup 0.0.1

홈페이지 : http://www.speakeasy.org/~msaye/tk/popup/

popup is a package that provides a popup widget.

  package require popup
  namespace import ::popup::popup
  set command "wm title . \$title ; [list popup::unmap .popup]"
  popup  .popup -focus .popup.entry
  entry  .popup.entry -textvariable title
  button .popup.ok -text OK -command $command
  pack   .popup.ok    -side right
  pack   .popup.entry -side left -fill x
  bind   .popup.entry <Key-Return> $command
  bind   . <Button-1> [list popup::post .popup %X %Y]

popup-0.0.1.tgz

0.02MB