From 6c8851b88386c51f0e599968274d45dc885da920 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Wed, 3 Jun 2009 21:22:36 +0000
Subject: segfault...

svn path=/trunk/; revision=11662
---
 desiredata/src/desire.tk           | 6 +++---
 desiredata/src/locale/english.tcl  | 2 ++
 desiredata/src/locale/francais.tcl | 7 +++++--
 3 files changed, 10 insertions(+), 5 deletions(-)

(limited to 'desiredata/src')

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
 }
diff --git a/desiredata/src/locale/english.tcl b/desiredata/src/locale/english.tcl
index 93f770ea..040a8e55 100644
--- a/desiredata/src/locale/english.tcl
+++ b/desiredata/src/locale/english.tcl
@@ -571,3 +571,5 @@ say keyboarddialogfont "virtual keyboard font"
 say keyboard_view "Virtual keyboard"
 say log_height "Log Height"
 say visual_diff "Visual diff"
+say oops "Oops..."
+say oops_text "This program has performed a silly operation and has been shut down."
diff --git a/desiredata/src/locale/francais.tcl b/desiredata/src/locale/francais.tcl
index 97a623b0..a40a5990 100644
--- a/desiredata/src/locale/francais.tcl
+++ b/desiredata/src/locale/francais.tcl
@@ -554,7 +554,10 @@ say keyboarddialogfont "police du clavier virtuel"
 say keyboard_view "Clavier virtuel"
 say log_height "Log Height" ;#TODO
 say visual_diff "Visual diff" ;#TODO
+say auto "Auto"
 
-#....
+# 2009:
+
+say oops "Oupse..."
+say oops_text "Ce programme a effectué une opération niaiseuse et a été zigouillé."
 
-say auto "Auto"
-- 
cgit v1.2.1