Lines Matching refs:top
632 set top .wrap
633 toplevel $top
634 grab $top
635 wm title $top "idn wrapper - Wrap Executable"
637 frame $top.f1 -bd 1 -relief raised
638 frame $top.f2 -bd 1 -relief raised
639 pack $top.f1 -side top -fill x -expand on
640 pack $top.f2 -side top -fill x -expand on
642 frame $top.f1.f
643 pack $top.f1.f -fill both -expand on -padx 4 -pady 4
645 set w $top.f1.f
684 set w $top.f2
686 -command [list execWrap $pw $lb $top $w_prgname $w_encname]
688 -command [list destroy $top]
692 tkwait window $top
714 set top .unwrap
715 toplevel $top
716 grab $top
717 wm title $top "idn wrapper - Unwrap Executable"
719 frame $top.f1 -bd 1 -relief raised
720 frame $top.f2 -bd 1 -relief raised
721 pack $top.f2 -side bottom -fill x
722 pack $top.f1 -side bottom -fill x -expand on
724 frame $top.f1.f
725 pack $top.f1.f -padx 4 -pady 4 -fill both -expand on
726 set w $top.f1.f
738 set w $top.f2
740 -command [list execUnwrap $pw $lb $top $w_prgname]
742 -command [list destroy $top]
748 tkwait window $top
801 set top .log
802 catch {destroy $top}
803 toplevel $top
804 wm title $top "idn wrapper - Log Configuration"
805 # wm transient $top $pw
810 frame $top.f1 -bd 1 -relief raised
811 frame $top.f2 -bd 1 -relief raised
812 pack $top.f2 -side bottom -fill x
813 pack $top.f1 -side top -fill both -expand on
815 set w $top.f1
830 button $w.ld_v.b -text "Browse.." -command [list selectLog $top $w.ld_v.e]
835 button $w.lo_v.show -text "View" -command [list showLog $top]
836 button $w.lo_v.delete -text "Delete" -command [list deleteLog $top]
846 set w $top.f2
847 button $w.ok -text "OK" -command [list configureLog $top]
848 button $w.cancel -text "Cancel" -command [list destroy $top]
853 proc configureLog {top} {
861 confErrorDialog $top "Directory $dir doesn't exist"
864 confErrorDialog $top "$dir is not a directory"
870 tk_messageBox -type ok -default ok -icon info -parent $top \
874 destroy $top
877 proc selectLog {top e} {
883 -parent $top]
890 proc showLog {top} {
893 confErrorDialog $top "Cannot execute notepad"
897 proc deleteLog {top} {
900 -parent $top -title "idn wrapper Configuration" \
925 pack $dlg.f1 -side top -fill x -expand on -ipadx 2m -ipady 4m
926 pack $dlg.f2 -side top -fill x -ipadx 2m
960 set top .adv
961 catch {destroy $top}
962 toplevel $top
963 wm title $top "idn wrapper - Advanced Configuration"
970 frame $top.$f -bd 1 -relief raised
971 pack $top.$f -side top -fill x
974 set f $top.f1
985 pack $w.$rb -side top -fill x -pady 1
987 pack $f.lbl -side top -fill x -pady 4
988 pack $w -side top -fill both -padx 20 -pady 10
990 set f $top.f2
992 pack $f.lbl -side top -fill x -pady 6
996 pack $w -side top -fill both -padx 10 -pady 6
1001 button $w.br -text "Browse.." -command [list selectConf $top $w.e]
1002 button $w.b -text Edit -command [list editConf $top]
1009 set w $top.f3
1010 button $w.ok -text "OK" -command [list advConf $top]
1011 button $w.cancel -text "Cancel" -command [list destroy $top]
1016 proc editConf {top} {
1019 confErrorDialog $top "Cannot execute notepad"
1023 proc selectConf {top e} {
1029 -parent $top]
1036 proc advConf {top} {
1040 destroy $top
1048 proc confErrorDialog {top message} {
1049 tk_messageBox -default ok -icon error -parent $top -type ok \
1097 pack .btn.wrap -side top -fill x -pady 4
1098 pack .btn.unwrap -side top -fill x -pady 4
1099 pack .btn.unwrapall -side top -fill x -pady 4
1100 pack .btn.rewrapall -side top -fill x -pady 4
1101 pack .btn.spacing1 -side top
1102 pack .btn.log -side top -fill x -pady 4
1103 pack .btn.spacing2 -side top
1104 pack .btn.adv -side top -fill x -pady 4
1110 pack .title -side top -fill x