From 6c8851b88386c51f0e599968274d45dc885da920 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Wed, 3 Jun 2009 21:22:36 +0000 Subject: segfault... svn path=/trunk/; revision=11662 --- desiredata/src/desire.tk | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'desiredata/src/desire.tk') 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 } -- cgit v1.2.1