You are here

list 항목을 지우고 싶습니다.

bind를 이용하여 마우스를 통해 list항목을 제어 하고 싶습니다.
그런데 마우스를 가져가면 list가 보였다가 마우스가 닿지 않으면 list가
지워졌으면 합니다.
destroy를 이용하니 error가 발생하네요. 어떻게 하면 되나요....
가르쳐 주세요. 아래는 제가 작성한 것입니다. 이렇게 하면 list가 보였다가 다시
없어지질 않습니다.
꼭 가르쳐 주세요

감사합니다.

#! /opt/tcltk-8.3.4/tk/bin/wish8.3

# Font Configuration --

set font_head {Courier 20 bold italic}
set font_big {Courier 16 bold italic}
set font_small {Helvetica 14 normal}

# positionWindow --

proc positionWindow w {
    wm geometry $w +1+1
}

# alarmmessage --


# This procedure is invoked by most of the /script/TclTk to position
#
# Arguments:
# w -           The name of the window to position.

proc openList w {
        pack $w.frl.list $w.frl.sy -side left -expand true
        pack $w.frl -fill x
}

set w .alarm
catch {destroy $w}
toplevel $w
wm title $w "Alarm Message List Window"
wm iconname $w "alarm"
positionWindow $w

set fileDir {
        {Did you Check the USER DATA ?}
        {Did you Check dimension of Drawing ?}
        {Did you P-MERGE after Inner modified ?}
        {Did you Check if Inner Layers have been ADARA_PRESS ?}
        {Did you Check if Couppon same the P/T Width in the inner of conduct ?}
        {Did you correctly Modify when you insert the Control_Number and  etc Text ?}
}

frame $w.frb
frame $w.frl
label $w.frb.lab -text "Did you Check the USER DATA ?" -fg bisque -font $font_head
        -width 75 -borderwidth 2
button $w.frb.b -bitmap info -bg red -fg black
bind $w.frb.b <Enter> { openList $w }
bind $w.frb.b <Leave> { destroy $w.frb }       
pack $w.frb.lab $w.frb.b -side left
pack $w.frb

scrollbar $w.frl.sy -command { $w.frl.list yview }
listbox $w.frl.list -listvariable fileDir -yscroll { $w.frl.sy set }
        -font $font_small -width 100 -height 6 -bg deepskyblue
        -fg blue -setgrid 1 -selectmode multiple
       
while { 1 } {
        foreach fileDirlist $fileDir {
                foreach color {bisque darkgreen lightgray yellow darkslategray aquamarine } {
                        update
                        $w.frb.lab configure -text "$fileDirlist" -bg $color
                                -fg red -relief raised -borderwidth 1
                        after 500                      
                }
        }
}