18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
# Silly experiment...
proc makeNuisance {top {str {Hi there!}}} {
if {[lsearch [image names] nuisance] < 0} {
set file [file join $::eskil(thisDir) .. Nuisance.gif]
if {![file exists $file]} return
image create photo nuisance -file $file
}
destroy $top.nui
toplevel $top.nui
wm transient $top.nui $top
wm geometry $top.nui +400+400
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 -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 \
-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
}
|
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
# A simple window for displaying e.g. help.
# Returns the frame where things can be put.
proc helpWin {w title} {
destroy $w
toplevel $w -padx 2 -pady 2
wm title $w $title
|