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 | |
| parent | 20c974606058b5ec716b8d4ca870030215ed420c (diff) | |
segfault...
svn path=/trunk/; revision=11662
Diffstat (limited to 'desiredata')
| -rw-r--r-- | desiredata/src/desire.tk | 6 | ||||
| -rw-r--r-- | desiredata/src/locale/english.tcl | 2 | ||||
| -rw-r--r-- | desiredata/src/locale/francais.tcl | 7 |
3 files changed, 10 insertions, 5 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 } 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" |