37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
-
+
-
-
-
+
+
+
|
wm title $top.nui ""
ttk::label $top.nui.l -image nuisance
pack $top.nui.l
wm protocol $top.nui WM_DELETE_WINDOW [list destroy $top.nui2 $top.nui]
update
destroy $top.nui2
toplevel $top.nui2 -bg yellow
toplevel $top.nui2 -background yellow
wm transient $top.nui2 $top.nui
wm overrideredirect $top.nui2 1
wm title $top.nui2 ""
ttk::label $top.nui2.l -text "$str\nDo you want help?" -justify left \
-bg yellow
ttk::button $top.nui2.b -text "No, get out of my face!" \
-command [list destroy $top.nui2 $top.nui] -bg yellow
-background yellow
button $top.nui2.b -text "No, get out of my face!" \
-command [list destroy $top.nui2 $top.nui] -background yellow
pack $top.nui2.l $top.nui2.b -side "top" -fill x
wm geometry $top.nui2 +[expr {405 + [winfo width $top.nui]}]+400
}
# A simple window for displaying e.g. help.
# Returns the frame where things can be put.
proc helpWin {w title} {
|
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
-
+
|
proc makeAboutWin {} {
global diffver
set w [helpWin .ab "About Eskil"]
set bg [ttk::style configure . -background]
text $w.t -width 45 -height 11 -wrap none -relief flat \
-bg $bg
-background $bg
pack $w.t -side top -expand y -fill both
$w.t insert end "A graphical frontend to diff\n\n"
$w.t insert end "$diffver\n\n"
$w.t insert end "Made by Peter Spjuth\n"
$w.t insert end "E-Mail: peter.spjuth@gmail.com\n"
$w.t insert end "\nURL: http://eskil.berlios.de\n"
|