You are here

Tcl 7.6 버젼에서 차일드로 다이얼로그

parent가 존재하고 그 위에 children 으로 다이얼로그를 띄우려고 하는데 잘 안되네요.

winfo parent $w

머 이런식인거 같은데 정확한 방법을 알려주시면 감사하겠습니다.

ps >> 소스 추가 합니다.
proc LC::qa{ } {
if { [winfo exists .qadlg] } {
return
}

set frm [toplevel .qadlg -borderwidth 1 -class dialog ]
wm title $frm "QA"

frame .qadlg.f1 -relief "solid" -borderwidth "1"
pack .qadlg.f1 -in .qadlg -padx 10 -pady 10 -side top -fill x
}

** 행복한 하루 되세요!! **