--- tcl/msg_files/fr_fr.msg	Thu Dec 18 18:54:54 2008
+++ tcl/msg_files/fr_fr.msg	Tue Dec 23 10:05:46 2008
@@ -25,7 +25,7 @@
 #
 
 # Scipad texts in French by Francois Vogel
-# in sync at least with v7.11
+# in sync at least with v7.12.SEP12_V1.1
 
 
 # commons
@@ -640,6 +640,7 @@
     ::msgcat::mcset fr_fr "Execution &errors" "E&rreurs d'exécution"
         ::msgcat::mcset fr_fr "In Scilab &shell only" "Dans la fenêtre &Scilab seulement"
         ::msgcat::mcset fr_fr "Copied in a &message box" "Recopiées dans une &boîte de dialogue"
+    ::msgcat::mcset fr_fr "Enc&oding" "Encod&age"
     ::msgcat::mcset fr_fr "E&xit options" "Option&s de fermeture"
         ::msgcat::mcset fr_fr "Show closure &X" "Afficher le bouton &X de fermeture"
         ::msgcat::mcset fr_fr "Exit on &last file close" "Quitte si &dernier fichier fermé"
--- tcl/buffernavigation.tcl	Mon Dec 22 10:29:44 2008
+++ tcl/buffernavigation.tcl	Tue Dec 23 10:06:29 2008
@@ -359,6 +359,7 @@
 # Set all the settings such that $textarea becomes the current one
     global pad Scheme ColorizeIt listoffile textareaid
     global buffermodifiedsincelastsearch
+    global currentencoding
 
     # clear the selection when leaving a buffer - check first that the
     # textarea still exists because it might have been destroyed when
@@ -377,6 +378,7 @@
     keyposn $textarea
     set Scheme $listoffile("$textarea",language)
     set ColorizeIt $listoffile("$textarea",colorize)
+    set currentencoding $listoffile("$textarea",encoding)
     schememenus $textarea
     highlighttextarea $textarea
     TextStyles $textarea
@@ -547,6 +549,7 @@
 # it creates a new empty textarea
     global winopened listoffile
     global listoftextarea pad
+    global defaultencoding
 
     # ensure that the cursor is changed to the default cursor
     event generate [gettextareacur] <Leave>
@@ -565,6 +568,7 @@
     set listoffile("$pad.new$winopened",undostackdepth) 0
     set listoffile("$pad.new$winopened",redostackdepth) 0
     set listoffile("$pad.new$winopened",progressbar_id) ""
+    set listoffile("$pad.new$winopened",encoding) $defaultencoding
     lappend listoftextarea $pad.new$winopened
 
     addwindowsmenuentry $winopened $listoffile("$pad.new$winopened",displayedname)
@@ -618,6 +622,7 @@
     set listoffile("$newta",undostackdepth) $listoffile("$ta",undostackdepth)
     set listoffile("$newta",redostackdepth) $listoffile("$ta",redostackdepth)
     set listoffile("$newta",progressbar_id) $listoffile("$ta",progressbar_id)
+    set listoffile("$newta",encoding) $listoffile("$ta",encoding)
     lappend listoftextarea $newta
 
     addwindowsmenuentry $winopened $listoffile("$pad.new$winopened",displayedname)
--- tcl/db_debugsession.tcl	Sat Dec 13 16:24:14 2008
+++ tcl/db_debugsession.tcl	Tue Dec 23 10:39:19 2008
@@ -48,6 +48,7 @@
     global tmpdir
     global previousstopfun
     global bptsprops
+    global defaultencoding
 
     if {[isscilabbusy 5]} {return}
     showinfo $waitmessage
@@ -114,6 +115,7 @@
         if {[catch {
             set fname [file join $tmpdir "Scipad_execfile_bp_tempfile.sci"]
             set fid [open $fname w]
+            fconfigure $fid -encoding $defaultencoding
             puts $fid $allfuntexts
             close $fid
             ScilabEval_lt "exec(\"$fname\");" "sync" "seq"
--- tcl/defaults.tcl	Sat Dec 20 11:23:56 2008
+++ tcl/defaults.tcl	Tue Dec 23 10:28:09 2008
@@ -296,6 +296,10 @@
 # frame pathname in which $textarea is packed, or "none" if it is not packed
 array unset pwframe
 
+# default encoding is the system native encoding
+set defaultencoding [encoding system]
+set currentencoding $defaultencoding
+
 #############
 # source the user preferences file if any
 # this must happen after the locale selection from Scilab's getlanguage() above
--- tcl/filecommands.tcl	Mon Dec 22 10:35:06 2008
+++ tcl/filecommands.tcl	Tue Dec 23 11:38:35 2008
@@ -111,6 +111,10 @@
 #       true: file gets colorized
 #       false: no colorization for this file
 #
+#     listoffile("$ta",encoding)
+#       name of the encoding in which the file is stored,
+#       e.g. utf-8 or euc-jp or cp1252 or a lot of other possibilities
+#
 #   The windows menu entries are radionbuttons, with the following
 #   properties:
 #     -value is $winopened
@@ -135,6 +139,7 @@
 proc filesetasnew {} {
     global winopened listoffile
     global listoftextarea pad
+    global defaultencoding
 
     # ensure that the cursor is changed to the default cursor
     event generate [gettextareacur] <Leave>
@@ -151,6 +156,7 @@
     set listoffile("$pad.new$winopened",undostackdepth) 0
     set listoffile("$pad.new$winopened",redostackdepth) 0
     set listoffile("$pad.new$winopened",progressbar_id) ""
+    set listoffile("$pad.new$winopened",encoding) $defaultencoding
     lappend listoftextarea $pad.new$winopened
 
     addwindowsmenuentry $winopened $listoffile("$pad.new$winopened",displayedname)
@@ -341,6 +347,7 @@
         unset listoffile("$textarea",undostackdepth)
         unset listoffile("$textarea",redostackdepth)
         unset listoffile("$textarea",progressbar_id)
+        unset listoffile("$textarea",encoding)
 
         # the rest of this proc is similar to proc hidetext,
         # but not identical
@@ -839,6 +846,8 @@
 # $file is not opened - this sets the $listoffile area values for that file
 # and adds an entry in the windows menu
     global winopened pad listoffile
+    global currentencoding
+
     incr winopened
     dupWidgetOption [gettextareacur] $pad.new$winopened
     set listoffile("$pad.new$winopened",fullname) [file normalize $file]
@@ -855,6 +864,8 @@
     set listoffile("$pad.new$winopened",undostackdepth) 0
     set listoffile("$pad.new$winopened",redostackdepth) 0
     set listoffile("$pad.new$winopened",progressbar_id) ""
+    # there is no automatic detection of encoding (so far) <TODO>: do it at least for xml files
+    set listoffile("$pad.new$winopened",encoding) $currentencoding
 
     addwindowsmenuentry $winopened $listoffile("$pad.new$winopened",displayedname)
 }
@@ -900,6 +911,7 @@
 # really open/read a file from disk
 # all readability tests have normally been done before
     global listoftextarea pad closeinitialbufferallowed
+    global listoffile
     set msgWait [mc "Wait seconds while loading and colorizing file"]
     showinfo $msgWait
     lappend listoftextarea $textarea
@@ -908,6 +920,7 @@
         closefile $pad.new1
     }
     set newnamefile [open $thefile r]
+    fconfigure $newnamefile -encoding $listoffile("$textarea",encoding)
     while {![eof $newnamefile]} {
         $textarea insert end [read -nonewline $newnamefile ]
     }
@@ -1138,7 +1151,7 @@
 # really write the file onto the disk
 # all writability tests have normally been done before
     global filebackupdepth tcl_platform
-    global pad
+    global pad listoffile
 
     if {$nobackupskip} {
         backupfile $nametosave $filebackupdepth
@@ -1187,6 +1200,7 @@
     }
 
     set FileNameToSave [open $nametosave w]
+    fconfigure $FileNameToSave -encoding $listoffile("$textarea",encoding)
     puts -nonewline $FileNameToSave [$pad.temptextwidget get 1.0 end]
     close $FileNameToSave
 
@@ -1199,9 +1213,14 @@
 
 proc savepreferences {} {
   global env listofpref listofpref_list
+  global defaultencoding
   set preffilename [file join $env(SCIHOME) .SciPadPreferences.tcl]
   catch {
     set preffile [open $preffilename w]
+    # the preferences file is always saved with the default platform system encoding
+    # this avoids to source it later in an encoding different than the platform
+    # native encoding, which is a feature available only from Tcl 8.5 onwards
+    fconfigure $preffile -encoding $defaultencoding
     foreach opt $listofpref {
         global $opt
         puts $preffile [concat "set $opt" \{[set $opt]\}]
@@ -1271,6 +1290,7 @@
         }
         if {$answer == yes} {
             set oldfile [open $thefile r]
+            fconfigure $oldfile -encoding $listoffile("$textarea",encoding)
             $textarea delete 1.0 end 
             while {![eof $oldfile]} {
                 $textarea insert end [read -nonewline $oldfile ] 
@@ -1330,6 +1350,24 @@
     foreach ta [filteroutpeers $listoftextarea] {
         checkiffilechangedondisk $ta
     }
+}
+
+##################################################
+# file encoding procs
+##################################################
+proc setencoding {} {
+# set the encoding property of the current buffer to be the encoding
+# currently selected in the encoding options menu
+# this proc is called when selecting any option of this menu
+    global currentencoding listoffile
+    set textarea [gettextareacur]
+    foreach ta [getfullpeerset $textarea] {
+        set listoffile("$ta",encoding) $currentencoding
+        modifiedtitle $ta
+    }
+    # this is mandatory because any system calls get mangled otherwise
+    # such as passing a filename to the system
+    encoding system $currentencoding
 }
 
 ##################################################
--- tcl/helps.tcl	Thu Nov 13 21:23:20 2008
+++ tcl/helps.tcl	Tue Dec 23 10:43:06 2008
@@ -97,6 +97,7 @@
 # a generic scrollable messagewindow, which displays the content of a text file
 proc textbox {textfile {wtitle ""}} {
     global pad menuFont textFont
+    global defaultencoding
     if {$wtitle == ""} {set wtitle $textfile}
     set tbox $pad.textbox
     catch {destroy $tbox}
@@ -107,8 +108,9 @@
     frame $tbox.f1
     text $tbox.text -font $textFont
     set newnamefile [open $textfile r]
+    fconfigure $newnamefile -encoding $defaultencoding
     while {![eof $newnamefile]} {
-            $tbox.text insert end [read -nonewline $newnamefile ] 
+        $tbox.text insert end [read -nonewline $newnamefile ] 
     }
     close $newnamefile
 if {0} {
--- tcl/infomessages.tcl	Thu Dec 18 18:54:54 2008
+++ tcl/infomessages.tcl	Tue Dec 23 10:09:53 2008
@@ -173,24 +173,30 @@
 
 proc modifiedtitle {textarea {panesonly "false"}} {
 # Set the Scipad window title to the name of the file displayed in $textarea
-# and add tags (modified, readonly)
+# and add tags (modified, readonly, encoding (if different from the system
+# encoding at Scipad startup))
 # Do the same for the pane title if it exists (i.e. if not maximized)
 # Update also the visual indications of the modified state of the buffer.
 # This includes title bar, colorization of the windows menu entry and
 # colorization of an area in the status bar
     global pad winTitle ScipadVersion listoffile
     global MenuEntryId
-    set fname $listoffile("$textarea",displayedname)
-    set ind [extractindexfromlabel $pad.filemenu.wind $fname]
-    set mod1 ""; set mod2 ""
+    global defaultencoding
+
     if {$listoffile("$textarea",readonly) == 1} { 
         set mod1 [mc " \[ReadOnly\]"]
+    } else {
+        set mod1 ""
     }
+
     if {[isanymodified]} {
         $pad.statusind configure -background PeachPuff
     } else {
         $pad.statusind configure -background [$pad.filemenu cget -background]
     }
+
+    set fname $listoffile("$textarea",displayedname)
+    set ind [extractindexfromlabel $pad.filemenu.wind $fname]
     if {[ismodified $textarea]} {
         set mod2 [mc " (modified)"]
         if {$ind !=-1} {
@@ -198,25 +204,35 @@
               -activebackground LightSalmon
         }
         $pad.statusind configure -background Salmon
-    } else {  
+    } else { 
+        set mod2 "" 
         if {$ind !=-1} {
             $pad.filemenu.wind entryconfigure $ind -background "" \
                -activebackground ""
         }
     }
+
+    if {$listoffile("$textarea",encoding) != $defaultencoding} {
+        set mod3 " ($listoffile("$textarea",encoding))"
+    } else {
+        set mod3 ""
+    }
+
     if {$panesonly == "false"} {
         # catched because scan will fail when launched from wish
         if {[catch {
             scan $ScipadVersion "%s - %s" ScipadVersionNumber ScipadVersionString
-            wm title $pad "$winTitle $ScipadVersionNumber - $fname$mod1$mod2"
+            wm title $pad "$winTitle $ScipadVersionNumber - $fname$mod1$mod2$mod3"
                    }] } {
-            wm title $pad "$winTitle - $fname$mod1$mod2"
+            wm title $pad "$winTitle - $fname$mod1$mod2$mod3"
         }
     }
+
     if {[isdisplayed $textarea]} {
         [getpaneframename $textarea].panetitle configure \
-          -text "$fname$mod1$mod2"
+          -text "$fname$mod1$mod2$mod3"
     }
+
     if {[ismodified $textarea] && \
           $listoffile("$textarea",thetime) !=0} { 
         $pad.filemenu.files entryconfigure \
--- tcl/mainwindow.tcl	Thu Dec 18 18:54:54 2008
+++ tcl/mainwindow.tcl	Tue Dec 23 10:10:09 2008
@@ -42,6 +42,7 @@
 set listoffile("$pad.new$winopened",undostackdepth) 0; # used to enable/disable the undo menu entry
 set listoffile("$pad.new$winopened",redostackdepth) 0; # used to enable/disable the redo menu entry
 set listoffile("$pad.new$winopened",progressbar_id) ""; # colorization progressbar identifier
+set listoffile("$pad.new$winopened",encoding) $defaultencoding
 
 set chset()                 {} 
 set words()                 {}  
--- tcl/menues.tcl	Sat Dec 20 23:16:56 2008
+++ tcl/menues.tcl	Tue Dec 23 11:39:23 2008
@@ -33,6 +33,7 @@
     global Shift_Tab
     foreach c1 "$bgcolors $fgcolors" {global $c1}
     global Tk85
+    global currentencoding
 
     #destroy old menues (used when changing language)
     foreach w [winfo children $pad.filemenu] {
@@ -380,7 +381,7 @@
                 -variable lang -value $l -command relocalize"
         }
     }
-# feature temporary disabled as not yet 100% ok (see bindings/issues.txt)
+# feature enabled yet not 100% ok (see bindings/issues.txt) - teasing!
     menu $pad.filemenu.options.bindings -tearoff 0
     eval "$pad.filemenu.options add cascade [me "&Bindings style"] \
            -menu $pad.filemenu.options.bindings "
@@ -405,6 +406,13 @@
         eval "$pad.filemenu.options.messageboxes add radiobutton \
             [me "Copied in a &message box"] \
              -value true -variable ScilabErrorMessageBox"
+    eval "$pad.filemenu.options add cascade [me "Enc&oding"] \
+               -menu $pad.filemenu.options.encodings"
+        menu $pad.filemenu.options.encodings -tearoff 1
+        foreach en [lsort -dictionary [encoding names]] {
+            $pad.filemenu.options.encodings add radiobutton -label $en \
+                -command {setencoding} -value $en -variable currentencoding
+        }
     menu $pad.filemenu.options.exitopts -tearoff 0
     eval "$pad.filemenu.options add cascade [me "E&xit options"] \
            -menu $pad.filemenu.options.exitopts "
--- tcl/print.tcl	Mon Dec 22 10:38:12 2008
+++ tcl/print.tcl	Tue Dec 23 10:48:10 2008
@@ -94,6 +94,7 @@
     if {[ismodified $textarea] ||
         ![file exists $listoffile("$textarea",fullname)]} {
         set TempPrintFile [open /tmp/SciPadtmpfile w]
+        fconfigure $TempPrintFile -encoding $listoffile("$textarea",encoding)
         puts -nonewline $TempPrintFile [$textarea get 1.0 end]
         close $TempPrintFile
         catch {eval exec "$printCommand /tmp/SciPadtmpfile"} result
@@ -120,6 +121,7 @@
         ![file exists $listoffile("$textarea",fullname)]} {
         set fname [file join $tmpdir SciPadtmpfile]
         set TempPrintFile [open $fname w]
+        fconfigure $TempPrintFile -encoding $listoffile("$textarea",encoding)
         puts -nonewline $TempPrintFile [$textarea get 1.0 end]
         close $TempPrintFile
         ScilabEval_lt "toprint(\"$fname\")" "sync"
--- tcl/scilabexec.tcl	Sat Dec 13 16:24:14 2008
+++ tcl/scilabexec.tcl	Tue Dec 23 10:57:32 2008
@@ -366,6 +366,7 @@
 
     global tmpdir
     global pad
+    global defaultencoding
 
     set bsiz_1  4095   ;# Must be consistent with bsiz defined in stack.h
     set lsiz_1 65535   ;# Must be consistent with lsiz defined in stack.h
@@ -384,6 +385,7 @@
             set splitsize 4000 ;# arbitrary but works up to approx. 4095
             set nbparts [expr {[string length $comm] / $splitsize + 1}]
             set fid [open $fname w]
+            fconfigure $fid -encoding $defaultencoding
             set startpos 0
             for {set i 1} {$i < $nbparts} {incr i} {
                 set stoppos  [expr {$i * $splitsize - 1}]
--- tcl/scipaddebug1.tcl	Thu Nov 13 21:23:20 2008
+++ tcl/scipaddebug1.tcl	Tue Dec 23 10:59:57 2008
@@ -296,6 +296,7 @@
     # and this one is never erased by Scipad (a new filename is used for each
     # bgerror)
         global Scipaddebuglogfileid Scipaddebuglogfilename env debuglog loginafile
+        global defaultencoding
         if {!$debuglog} {return}
         timestamp sec mil
         puts "[clock format $sec -format "%d/%m/%y|%T"].[format %03d $mil]|$value"
@@ -308,6 +309,7 @@
             } else {
                 set Scipaddebuglogfileid [open $Scipaddebuglogfilename a]
             }
+            fconfigure $Scipaddebuglogfileid -encoding $defaultencoding
             puts $Scipaddebuglogfileid "[clock format $sec -format "%d/%m/%y|%T"].[format %03d $mil]|$value"
             close $Scipaddebuglogfileid
         }
--- BUGS	Sat Dec 13 16:24:14 2008
+++ BUGS	Tue Dec 23 10:12:18 2008
@@ -534,7 +534,13 @@
 
 Misc notes:
 
-- Could find a use in the Scipad code (all are Tcl/Tk 8.5 features):
+- Tcl/Tk 8.5 features that could find their use in the Scipad code:
   font actual $font $char (to know whether $char is included in $font)
   text count
   text search -all
+
+- Tcl/Tk 8.6 features that could find their use in the Scipad code:
+  file tempfile (TIP #210)
+  tk busy (TIP #321)
+  tk fontchooser (TIP #324)
+  -insertunfocussed for text widgets (TIP #197)
--- changelog.txt	Mon Dec 22 11:02:06 2008
+++ changelog.txt	Tue Dec 23 11:40:06 2008
@@ -1,3 +1,9 @@
+Francois VOGEL, 23/12/08
+ * Selection of the file encoding is now possible through a new option menu
+   (this is a request from Yung-Jang Lee) - This is the implementation
+   corresponding to SEP#12_V1.1
+ * version --> 7.12.SEP12_V1.1
+
 Francois VOGEL, 22/12/08
  * Fixed bug 3882 by using the grid geometry manager instead of pack in
    certain cases - See also:
--- version.xml	Sat Dec 20 17:37:26 2008
+++ version.xml	Tue Dec 23 10:05:34 2008
@@ -15,5 +15,5 @@
 -->
 <!-- =================== -->
 
-<VERSION major="7" minor="12" maintenance="0" revision="0" string="SciPad unstable-svn" />
+<VERSION major="7" minor="12" maintenance="SEP12_V1.1" revision="0" string="SciPad unstable-svn" />
 </MODULE_VERSION>