You are here

selectionbox 이용시 문의

다소 허접스런 질문 죄송합니다.

다이얼로그 박스에다 iwidgets::selectionbox 를 사용하여 ui를 만들고자 합니다.
그런데 이놈이 차일드로 숨어있는지 아무런 동작을 안하게 되네요.
어떻게 하면 selectionbox 를 위에서 놀수있게 할까요 ;;

답변 부탁드립니다.

소스:
package require Iwidgets 4.0

option add *textBackground seashell

proc TEST::SetupDlg {} {
if { [winfo exists .top] } {
return{}
}

set lev [ toplevel .losslist -borderwidth 1 -class dialog]
wm title $lev "LOSS LIST"

iwidgets::selectionbox .losslist.loss -height 2i -selectionlabel "LOSS CODE:" -selectioncommand { TEST::Set_Loss_List }
pack .losslist.loss -expand yes

.losslist.loss insert items end Ariel Courier Helvetica Knarly Lucida \
Rumpus Symbol Times "Zapf Dingbats"
}

proc TEST::Set_Loss_List {} {
set str ""

.losslist.loss selection get str
tk_messageBox -message $str
}