diff options
author | N.N. <matju@users.sourceforge.net> | 2009-06-03 21:22:36 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-06-03 21:22:36 +0000 |
commit | 6c8851b88386c51f0e599968274d45dc885da920 (patch) | |
tree | 4f97f69fae78432e3e39a171ac26efa924216905 /desiredata/src/desire.tk | |
parent | 20c974606058b5ec716b8d4ca870030215ed420c (diff) |
segfault...
svn path=/trunk/; revision=11662
Diffstat (limited to 'desiredata/src/desire.tk')
-rw-r--r-- | desiredata/src/desire.tk | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk index 2e0e4cc4..ff54bf5e 100644 --- a/desiredata/src/desire.tk +++ b/desiredata/src/desire.tk @@ -8684,10 +8684,10 @@ class_new OopsDialogue {Dialogue} def OopsDialogue init {sig1 sig2 where} { super damn - wm title .$self "Oops..." + wm title .$self [say oops] pack [label .$self.head -text $sig2 -font {Helvetica -14 bold}] -side top - pack [label .$self.note -text "This program has performed a silly operation and has been shut down."] -side top - pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 80 -height 15] -side left -fill both -expand 1 + pack [label .$self.note -text [say oops_text]] -side top + pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 108 -height 15] -side left -fill both -expand 1 pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y .$self.text insert 0.0 $where } |