Lines Matching refs:dlg
489 proc execWrap { pw lb dlg prg enc } {
496 confErrorDialog $dlg "Program must be specified.\nClick \"Browse..\" button for browsing."
505 -parent $dlg \
507 destroy $dlg
516 -parent $dlg
517 destroy $dlg
524 -parent $dlg
526 destroy $dlg
533 create_dot_local $prgName $dlg
535 remove_dot_local $prgName $dlg
542 destroy $dlg
545 proc execUnwrap { pw lb dlg prg } {
553 -parent $dlg]
555 remove_dot_local $prgName $dlg
564 destroy $dlg
914 set dlg .dotlocaldlg
915 catch {destroy $dlg}
916 toplevel $dlg
918 wm iconname $dlg Dialog
919 wm title $dlg Confirmation
920 wm transient $dlg $parent
921 wm protocol $dlg WM_DELETE_WINDOW {}
923 frame $dlg.f1 -bd 1 -relief raised
924 frame $dlg.f2 -bd 1 -relief raised
925 pack $dlg.f1 -side top -fill x -expand on -ipadx 2m -ipady 4m
926 pack $dlg.f2 -side top -fill x -ipadx 2m
928 label $dlg.f1.bm -bitmap question -bd 0
929 label $dlg.f1.msg -text "Remove $path.local?" -wraplength 10c
930 pack $dlg.f1.bm -side left -padx 3m -pady 2m
931 pack $dlg.f1.msg -side left -padx 2m -pady 2m
935 set bw $dlg.f2.btn$btn
946 grab $dlg
947 ::tk::PlaceWindow $dlg widget $parent
950 destroy $dlg