--- a/d_bw_vga.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/d_bw_vga.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
@@ -7,7 +9,7 @@
*
* display configuration - for a b&w notebook or portable-pc (gas plasma/LCD b&w vga)
* This is only required, since my Xserver does not know the exact screen
- * dimensions and also thinks its running on a color display (although the
+ * dimensions and also thinks its running on a color display (although the
* display can only show greyscales)
*
* You probably dont have one of those ...
--- a/d_exceed.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/d_exceed.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
@@ -19,7 +21,7 @@
!
"*
- * this redefines some ALT-keys as CTRL-key,
+ * this redefines some ALT-keys as CTRL-key,
* since the exceed server catches ALT-keys.
* (or can this be turned off ?)
* For a full list of key assignments, see keyboard.rc.
@@ -27,31 +29,31 @@
|map|
map := Display keyboardMap.
-map bindValue:#Cmdx to:#Cmdx. "/ unbind - for correct menu info
-map bindValue:#Cmdc to:#Cmdc. "/ unbind - for correct menu info
-map bindValue:#Cmdv to:#Cmdv. "/ unbind - for correct menu info
-map bindValue:#Cmds to:#Cmds. "/ unbind - for correct menu info
-map bindValue:#Cmdf to:#Cmdf. "/ unbind - for correct menu info
-map bindValue:#Cmdb to:#Cmdb. "/ unbind - for correct menu info
-map bindValue:#Cmda to:#Cmda. "/ unbind - for correct menu info
-map bindValue:#Cmdd to:#Cmdd. "/ unbind - for correct menu info
-map bindValue:#Cmdp to:#Cmdp. "/ unbind - for correct menu info
-map bindValue:#Cmdi to:#Cmdi. "/ unbind - for correct menu info
-map bindValue:#Cmdg to:#Cmdg. "/ unbind - for correct menu info
-map bindValue:#Cmde to:#Cmde. "/ unbind - for correct menu info
-map bindValue:#CmdS to:#CmdS. "/ unbind - for correct menu info
-map bindValue:#Cmdz to:#Cmdz. "/ unbind - for correct menu info
-map bindValue:#CmdA to:#CmdA. "/ unbind - for correct menu info
-map bindValue:#Cmdh to:#Cmdh. "/ unbind - for correct menu info
-map bindValue:#Cmdm to:#Cmdm. "/ unbind - for correct menu info
-map bindValue:#Cmdr to:#Cmdr. "/ unbind - for correct menu info
-map bindValue:#Cmdw to:#Cmdw. "/ unbind - for correct menu info
-map bindValue:#Cmdw to:#Cmdw. "/ unbind - for correct menu info
-map bindValue:#CmdF to:#CmdF. "/ unbind - for correct menu info
-map bindValue:#CmdM to:#CmdM. "/ unbind - for correct menu info
-map bindValue:#CmdL to:#CmdL. "/ unbind - for correct menu info
+map bindValue:#Cmdx to:#Cmdx. "/ unbind - for correct menu info
+map bindValue:#Cmdc to:#Cmdc. "/ unbind - for correct menu info
+map bindValue:#Cmdv to:#Cmdv. "/ unbind - for correct menu info
+map bindValue:#Cmds to:#Cmds. "/ unbind - for correct menu info
+map bindValue:#Cmdf to:#Cmdf. "/ unbind - for correct menu info
+map bindValue:#Cmdb to:#Cmdb. "/ unbind - for correct menu info
+map bindValue:#Cmda to:#Cmda. "/ unbind - for correct menu info
+map bindValue:#Cmdd to:#Cmdd. "/ unbind - for correct menu info
+map bindValue:#Cmdp to:#Cmdp. "/ unbind - for correct menu info
+map bindValue:#Cmdi to:#Cmdi. "/ unbind - for correct menu info
+map bindValue:#Cmdg to:#Cmdg. "/ unbind - for correct menu info
+map bindValue:#Cmde to:#Cmde. "/ unbind - for correct menu info
+map bindValue:#CmdS to:#CmdS. "/ unbind - for correct menu info
+map bindValue:#Cmdz to:#Cmdz. "/ unbind - for correct menu info
+map bindValue:#CmdA to:#CmdA. "/ unbind - for correct menu info
+map bindValue:#Cmdh to:#Cmdh. "/ unbind - for correct menu info
+map bindValue:#Cmdm to:#Cmdm. "/ unbind - for correct menu info
+map bindValue:#Cmdr to:#Cmdr. "/ unbind - for correct menu info
+map bindValue:#Cmdw to:#Cmdw. "/ unbind - for correct menu info
+map bindValue:#Cmdw to:#Cmdw. "/ unbind - for correct menu info
+map bindValue:#CmdF to:#CmdF. "/ unbind - for correct menu info
+map bindValue:#CmdM to:#CmdM. "/ unbind - for correct menu info
+map bindValue:#CmdL to:#CmdL. "/ unbind - for correct menu info
-map bindValue:#Cut to:#Ctrlx.
+map bindValue:#Cut to:#Ctrlx.
map bindValue:#Copy to:#Ctrlc.
map bindValue:#Paste to:#Ctrlv.
@@ -70,4 +72,4 @@
map bindValue:#PrintIt to:#Ctrlp.
map bindValue:#InspectIt to:#Ctrli.
map bindValue:#UserInterrupt to:#Pause.
-!
+!
--- a/d_portable.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/d_portable.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
@@ -46,7 +48,7 @@
Display depth <= 4 ifTrue:[
View defaultStyle:#normal
] ifFalse:[
- View defaultStyle:#iris
+ View defaultStyle:#iris
]
!
--- a/d_sample_display.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/d_sample_display.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
@@ -32,12 +34,12 @@
"/ View defaultStyle:#iris
"/ View defaultStyle:#openwin
"/ View defaultStyle:#motif
-"/ View defaultStyle:#'motif_red'
+"/ View defaultStyle:#'motif_red'
"/ View defaultStyle:#normal
"/ View defaultStyle:#mswindows
"/ View defaultStyle:#st80
-"/ View defaultStyle:#greenPC
-"/ View defaultStyle:#rocky
+"/ View defaultStyle:#greenPC
+"/ View defaultStyle:#rocky
"*
* define keys/keyboard abbreviations etc. which are not handled by xmodmap
@@ -47,9 +49,9 @@
map := Display keyboardMap.
"
-map bindValue:#Again to:#F1.
-map bindValue:#Copy to:#F2.
-map bindValue:#Cut to:#F3.
+map bindValue:#Again to:#F1.
+map bindValue:#Copy to:#F2.
+map bindValue:#Cut to:#F3.
"
"
--- a/d_sun.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/d_sun.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
--- a/d_win32.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/d_win32.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,10 +1,12 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
*
* ST/X startup configuration file:
- * display configuration - windowsNT / windows95
+ * display configuration - windowsNT / windows95
*"
StandardSystemView takeFocusWhenMapped:true.
@@ -12,8 +14,8 @@
"/
"/ here, fixup the keyboard mapping for
-"/ windows feel - especially,
-"/ change from to
+"/ windows feel - especially,
+"/ change from to
"/ cut/copy/paste ALT-[XCV] CTRL-[XCV]
"/ HOME-key BeginOfText BeginOfLine
"/ END-key EndOfText EndOfLine
@@ -54,6 +56,6 @@
"/ map bindValue:#Cmdx to:#Cmdx.
"/ map bindValue:#Cmdv to:#Cmdv.
-map bindValue:#Menu to:#Appl.
-map bindValue:#ExecuteKeyboardMacro to:#F2.
+map bindValue:#Menu to:#Appl.
+map bindValue:#ExecuteKeyboardMacro to:#F2.
!
--- a/d_win32_visualAge.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/d_win32_visualAge.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
@@ -12,8 +14,8 @@
"/
"/ here, fixup the keyboard mapping for
-"/ windows feel - especially,
-"/ change from to
+"/ windows feel - especially,
+"/ change from to
"/ cut/copy/paste ALT-[XCV] CTRL-[XCV]
"/ HOME-key BeginOfText BeginOfLine
"/ END-key EndOfText EndOfLine
@@ -37,10 +39,10 @@
map bindValue:#Paste to:#Ctrlv.
map bindValue:#BeginOfLine to:#Home.
map bindValue:#EndOfLine to:#End.
-map bindValue:#SelectAll to:#Ctrla.
+map bindValue:#SelectAll to:#Ctrla.
map bindValue:#Accept to:#Ctrls.
map bindValue:#Find to:#Ctrlf.
-map bindValue:#DoIt to:#Ctrle.
+map bindValue:#DoIt to:#Ctrle.
map bindValue:#PrintIt to:#Ctrld. "evaluate and paste result"
map bindValue:#InspectIt to:#Ctrlq. "evaluate and paste result"
@@ -62,5 +64,5 @@
"/ map bindValue:#Cmdx to:#Cmdx.
"/ map bindValue:#Cmdv to:#Cmdv.
-map bindValue:#Menu to:#Appl.
+map bindValue:#Menu to:#Appl.
!
--- a/display.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/display.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
* MIMEType: application/x-smalltalk-source
*
@@ -8,7 +10,7 @@
* the kind of display and find a
* display specific initialization file.
*
- * DO NOT add site specific things here
+ * DO NOT add site specific things here
* - use your own d_xxx.rc file instead
* where xxx stands for your displays hostname(s)
*"
@@ -47,7 +49,7 @@
"/ still to come ...
"/ '.img' put:IMGReader.
"/ '.IMG' put:IMGReader.
- "/ '.mac' put:MacPaintReader.
+ "/ '.mac' put:MacPaintReader.
rdr := Smalltalk at:#SunRasterReader ifAbsent:nil.
rdr notNil ifTrue:[
@@ -56,7 +58,7 @@
].
"/ still to come ...
- "/ '.g3' put:G3FileReader.
+ "/ '.g3' put:G3FileReader.
rdr := Smalltalk at:#WindowsIconReader ifAbsent:nil.
rdr notNil ifTrue:[
@@ -199,7 +201,7 @@
"/ figure out the hostname of the display,
"/ to read d_<hostname>.rc
- ((displayVar startsWith:':')
+ ((displayVar startsWith:':')
or:[(displayVar startsWith:'unix:')
or:[displayVar startsWith:'shm:']]) ifTrue:[
"running on a local display"
@@ -421,7 +423,7 @@
"*
* now, this is a nice one:
*
- * if we are running on the default display and the image was saved
+ * if we are running on the default display and the image was saved
* on a different type of display, ask the user,
* if he/she'd like to have the style changed.
*"
@@ -491,19 +493,19 @@
View defaultStyle:#mswindows95
].
type = 'linux' ifTrue:[
- View defaultStyle:#mswindows95
+ View defaultStyle:#mswindows95
].
type = 'hpux' ifTrue:[
- View defaultStyle:#motif
+ View defaultStyle:#motif
].
type = 'ultrix' ifTrue:[
- View defaultStyle:#'motif_dec2'
+ View defaultStyle:#'motif_dec2'
].
type = 'os2' ifTrue:[
- View defaultStyle:#os2
+ View defaultStyle:#os2
].
(type = 'win32') ifTrue:[
- View defaultStyle:#'mswindows95'
+ View defaultStyle:#'mswindows95'
].
"/ final fallBack ...
@@ -521,4 +523,3 @@
View defaultStyle infoPrintCR
]
!
-
--- a/h_sample_host.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/h_sample_host.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
@@ -21,7 +23,7 @@
!
"*
- * printer configuration
+ * printer configuration
* - uncomment the one you have
*"
@@ -40,7 +42,7 @@
"/
"/ EpsonFX1PrinterStream autoload.
"/ Smalltalk at:#Printer put:EpsonFX1PrinterStream.
-"/
+"/
"*
* define the printCommands presented in the launchers
@@ -55,14 +57,14 @@
* this one for bsd-type real unixes
*"
"/
-"/ Printer printCommand:'lpr'.
+"/ Printer printCommand:'lpr'.
"/
"*
* this one specifies a printer
*"
"/
-"/ Printer printCommand:'lpr -Pdali'.
+"/ Printer printCommand:'lpr -Pdali'.
"/
@@ -70,7 +72,7 @@
* this one for sys5-type machines
*"
"/
-"/ Printer printCommand:'lp'.
+"/ Printer printCommand:'lp'.
"/
@@ -78,7 +80,7 @@
* or even more fancy:
*"
"/
-"/ Printer printCommand:'lp -d letterquality'.
+"/ Printer printCommand:'lp -d letterquality'.
"/
@@ -86,10 +88,10 @@
* and these are examples for remote printing
*"
"/
-" /Printer printCommand:'rcmd ama lp -d letterquality'.
+" /Printer printCommand:'rcmd ama lp -d letterquality'.
"/
"/
-"/Printer printCommand:'rsh avalon ''cat >/dev/lp'''.
+"/Printer printCommand:'rsh avalon ''cat >/dev/lp'''.
"/
"*
@@ -97,8 +99,8 @@
*"
"/
"/ Smalltalk at:#Printer put:PostscriptPrinterStream.
-"/ Printer printCommand:'cat > /tmp/psfile ; ghostview psfile'.
-"/ Printer printCommand:'cat > /tmp/psfile'.
+"/ Printer printCommand:'cat > /tmp/psfile ; ghostview psfile'.
+"/ Printer printCommand:'cat > /tmp/psfile'.
"/
--- a/h_solaris.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/h_solaris.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
@@ -10,7 +12,7 @@
*"
"/
-"/ right now, you should have gcc (or egcs) installed
+"/ right now, you should have gcc (or egcs) installed
"/ we do not support the expensive sun C-compiler.
"/
--- a/h_win32.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/h_win32.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
@@ -53,7 +55,7 @@
Smalltalk wasStartedFromImage ifFalse:[
"/
- "/ right now, stx can only be used with a
+ "/ right now, stx can only be used with a
"/ borland C-compiler.
"/
--- a/host.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/host.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* ST/X startup configuration file:
@@ -42,7 +44,7 @@
"/
PostscriptPrinterStream notNil ifTrue:[
isStupidSYSV3 ifTrue:[
- PostscriptPrinterStream
+ PostscriptPrinterStream
defaultCommands:#(
'lpr'
'cat | remsh {hostname} lpr -h'
@@ -50,7 +52,7 @@
'cat > preview.ps; gv preview.ps'
).
] ifFalse:[
- PostscriptPrinterStream
+ PostscriptPrinterStream
defaultCommands:#(
'lpr -h'
'cat | rsh {hostname} lpr -h'
@@ -63,7 +65,7 @@
PrinterStream notNil ifTrue:[
isStupidSYSV3 ifTrue:[
- PrinterStream
+ PrinterStream
defaultCommands:#(
'lpr -h'
'cat | remsh {hostname} lpr -h'
@@ -71,7 +73,7 @@
'a2ps > preview.ps; gv preview.ps'
).
] ifFalse:[
- PrinterStream
+ PrinterStream
defaultCommands:#(
'lpr -h'
'cat | rsh {hostname} lpr -h'
@@ -163,7 +165,7 @@
includes := includes , '-I/opt/smalltalk/include '.
] ifFalse:[
"/ if this is a production program, dont care for a warning
- (Smalltalk isStandAloneApp or:[Smalltalk isHeadless])
+ (Smalltalk isStandAloneApp or:[Smalltalk isHeadless])
ifFalse:[
'private.rc [warning]: no >>include<< directory found along your path.' infoPrintCR.
'private.rc [warning]: this will affect stc-compilation from within the browser.' infoPrintCR.
--- a/keyboard.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/keyboard.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
@@ -19,7 +21,7 @@
* these are my personal preferrences which may not be
* correct for your environment.
*
- * WARNING:
+ * WARNING:
* please keep the expressions below free from manipulating
* global state - all that should be done here is to set up the current
* screens keyboard map.
@@ -84,7 +86,7 @@
"/ macro to toggle tabs
"/
macros at:#ToggleTabs put:'
- "toggle between 4-col
+ "toggle between 4-col
and 8-col tabs"
(tabPositions == self class tab4Positions)
@@ -95,7 +97,7 @@
"/ macro to indent by 4
"/
macros at:#IndentBy4 put:'
- "indent selected line-range
+ "indent selected line-range
by 4 spaces (i.e. to the right)"
|line1 line2|
@@ -108,7 +110,7 @@
line2 := line1+1
]
].
- line1 notNil ifTrue:[
+ line1 notNil ifTrue:[
self withExecuteCursorDo:[
line1 to:line2-1 do:[:lineNr |
|line|
@@ -135,7 +137,7 @@
"/ macro to undent by 4
"/
macros at:#UndentBy4 put:'
- "undent selected line-range
+ "undent selected line-range
by 4 spaces (i.e. to the left)"
|line1 line2|
@@ -148,7 +150,7 @@
line2 := line1+1
]
].
- line1 notNil ifTrue:[
+ line1 notNil ifTrue:[
self withExecuteCursorDo:[
line1 to:line2-1 do:[:lineNr |
|line|
@@ -176,7 +178,7 @@
"/ macro to indent by 1
"/
macros at:#IndentBy1 put:'
- "indent selected line-range
+ "indent selected line-range
by 1 space (i.e. to the right)"
|line1 line2|
@@ -189,7 +191,7 @@
line2 := line1+1
]
].
- line1 notNil ifTrue:[
+ line1 notNil ifTrue:[
line1 to:line2-1 do:[:lineNr |
|line|
@@ -209,7 +211,7 @@
"/ macro to undent by 1
"/
macros at:#UndentBy1 put:'
- "undent selected line-range
+ "undent selected line-range
by 1 space (i.e. to the left)"
|line1 line2|
@@ -222,7 +224,7 @@
line2 := line1+1
]
].
- line1 notNil ifTrue:[
+ line1 notNil ifTrue:[
line1 to:line2-1 do:[:lineNr |
|line|
@@ -256,7 +258,7 @@
line2 := line1
]
].
- line1 notNil ifTrue:[
+ line1 notNil ifTrue:[
line1 to:line2 do:[:lineNr |
|line col1 col2|
@@ -302,7 +304,7 @@
line2 := line1
]
].
- line1 notNil ifTrue:[
+ line1 notNil ifTrue:[
line1 to:line2 do:[:lineNr |
|line col1 col2 state|
@@ -353,7 +355,7 @@
line2 := line1
]
].
- line1 notNil ifTrue:[
+ line1 notNil ifTrue:[
line1 to:line2 do:[:lineNr |
|line col1 col2|
@@ -406,11 +408,11 @@
map bindValue:#Compose to:#'AltMulti_key'. "/ the right compose key
map bindValue:#Return to:#'KP_Enter'. "/ the keypads return key
-].
+].
-"/ map bindValue:#'Hardcopy' to:#'Super_R'.
-map bindValue:#'Alt' to:#'Super_L'.
-map bindValue:#'Alt' to:#'Hyper_R'.
+"/ map bindValue:#'Hardcopy' to:#'Super_R'.
+map bindValue:#'Alt' to:#'Super_L'.
+map bindValue:#'Alt' to:#'Hyper_R'.
map bindValue:#UserInterrupt to:#Ctrlc. "interrupt window process"
map bindValue:#UserAbort to:#Ctrly. "abort window process, but no debugger"
@@ -458,19 +460,19 @@
"/ map bindValue:#EndOfText to:#End. "some prefer to bind #EndOfLine to #End"
"/
"/ new setting:
-map bindValue:#BeginOfLine to:#Home.
-map bindValue:#EndOfLine to:#End.
-map bindValue:#BeginOfText to:#CtrlHome.
-map bindValue:#EndOfText to:#CtrlEnd.
+map bindValue:#BeginOfLine to:#Home.
+map bindValue:#EndOfLine to:#End.
+map bindValue:#BeginOfText to:#CtrlHome.
+map bindValue:#EndOfText to:#CtrlEnd.
map bindValue:#BeginOfLine to:#Ctrla.
map bindValue:#EndOfLine to:#Ctrle.
map bindValue:#NextWord to:#Ctrlw.
-map bindValue:#NextWord to:#CtrlCursorRight.
-map bindValue:#PreviousWord to:#CtrlCursorLeft.
+map bindValue:#NextWord to:#CtrlCursorRight.
+map bindValue:#PreviousWord to:#CtrlCursorLeft.
-map bindValue:#ScrollUp to:#CtrlCursorUp.
-map bindValue:#ScrollDown to:#CtrlCursorDown.
+map bindValue:#ScrollUp to:#CtrlCursorUp.
+map bindValue:#ScrollDown to:#CtrlCursorDown.
map bindValue:#SearchMatchingParent to:#Ctrlm.
map bindValue:#SelectMatchingParents to:#Cmdm.
@@ -502,9 +504,9 @@
"/ map bindValue:#FocusPrevious to:#CtrlCursorLeft. "experimental"
-map bindValue:#NonInsertingTab to:#ShiftTab.
-"/ map bindValue:#BackTab to:#ShiftTab.
-map bindValue:#BackTab to:#CtrlTab.
+map bindValue:#NonInsertingTab to:#ShiftTab.
+"/ map bindValue:#BackTab to:#ShiftTab.
+map bindValue:#BackTab to:#CtrlTab.
map bindValue:#NonInsertingTab to:#'ISO_Left_Tab'.
"/ map bindValue:#ToggleTabs to:#CtrlTab.
@@ -513,7 +515,7 @@
"/ map bindValue:#FocusPrevious to:#'ISO_Left_Tab'.
map bindValue:#FocusPrevious to:#'CmdISO_Left_Tab'.
"/ map bindValue:#Tab to:#'ISO_Left_Tab'.
-map bindValue:#Menu to:#Cmdz.
+map bindValue:#Menu to:#Cmdz.
"*
* ISO LATIN 1 symbolic characters - map to iso8859 values
@@ -564,54 +566,54 @@
"/ circumflex
Acircumflex 16rC2
- Ecircumflex 16rCA
- Icircumflex 16rCE
- Ocircumflex 16rD4
- Ucircumflex 16rDB
- acircumflex 16rE2
- ecircumflex 16rEA
- icircumflex 16rEE
- ocircumflex 16rF4
- ucircumflex 16rFB
+ Ecircumflex 16rCA
+ Icircumflex 16rCE
+ Ocircumflex 16rD4
+ Ucircumflex 16rDB
+ acircumflex 16rE2
+ ecircumflex 16rEA
+ icircumflex 16rEE
+ ocircumflex 16rF4
+ ucircumflex 16rFB
"/ tilde
- Atilde 16rC3
- Ntilde 16rD1
- atilde 16rE3
- ntilde 16rF1
+ Atilde 16rC3
+ Ntilde 16rD1
+ atilde 16rE3
+ ntilde 16rF1
"/ ring
- Aring 16rC4
- aring 16rE4
+ Aring 16rC4
+ aring 16rE4
"/ ligatures
- AE 16rC5
- ae 16rE5
+ AE 16rC5
+ ae 16rE5
ssharp 16rDF
"/ cedilla
- Ccedilla 16rC7
- ccedilla 16rE7
+ Ccedilla 16rC7
+ ccedilla 16rE7
"/ slashed
- Ooblique 16rD8
- oslash 16rF8
+ Ooblique 16rD8
+ oslash 16rF8
"/ misc (if on your keyboard)
Eth 16rD0 "/ some old servers still use this
- ETH 16rD0
- eth 16rF0
- multiply 16rD7
+ ETH 16rD0
+ eth 16rF0
+ multiply 16rD7
Thorn 16rDE "/ some old servers still use this
THORN 16rDE "/ some old servers still use this
- division 16rF7
- thorn 16rFE
+ division 16rF7
+ thorn 16rFE
section 16rA7
degree 16rB0
@@ -645,14 +647,14 @@
"/ remove these lines, if your keyboard has a COMPOSE-key.
"/ None of our Xdisplays here has one - so we simulate it using CTRL-R ...
-"/ which on some (of our) servers comes pretranslated as Multi_key,
+"/ which on some (of our) servers comes pretranslated as Multi_key,
"/ CtrlMulti_key or even Mode_switch.
map bindValue:#Compose to:#'Control_R'. "/ the right compose key
"/ map bindValue:#Compose to:#'Control_L'. "/ the right compose key
map bindValue:#Compose to:#'Multi_key'. "/ the right compose key
map bindValue:#Compose to:#'CtrlMulti_key'. "/ the right compose key
-"/ map bindValue:#Compose to:#'Mode_switch'.
+"/ map bindValue:#Compose to:#'Mode_switch'.
"/ a kludge: some Xservers send #Delete for both the backspace
@@ -719,7 +721,7 @@
map bindValue:#CodeCompletion to:#F2.
-"/ map bindValue:#PasteBlockEvaluationsOutput to:#CmdV.
+"/ map bindValue:#PasteBlockEvaluationsOutput to:#CmdV.
"/
"/ since some of my machines have german keyboards ;-)
@@ -727,7 +729,7 @@
"/ I need a translation in both ways.
"/ you'd normally not define things in both directions.
"/
-"/ actually, these things belong into the servers modmap or
+"/ actually, these things belong into the servers modmap or
"/ into a display specific d_<displayName>.rc ...
"/
"/ german national characters on a US keyboard:
@@ -756,7 +758,7 @@
map bindValue:$~ to:#'Alt~'.
map bindValue:$@ to:#'Alt@'.
-map bindValue:$[ to:#'Cmd['.
+map bindValue:$[ to:#'Cmd['.
map bindValue:$] to:#'Cmd]'.
map bindValue:$| to:#'Cmd|'.
map bindValue:${ to:#'Cmd{'.
--- a/private.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/private.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,4 +1,6 @@
"*
+ * Encoding: iso8859-1
+ *
* $Header$
*
* MIMEType: application/x-smalltalk-source
--- a/showBanner.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/showBanner.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,3 +1,4 @@
+"/ Encoding: iso8859-1
"/
"/ $Header$
"/
@@ -7,7 +8,7 @@
"/ simply remove or rename this file.
"/
"/ if you like another image to be shown (especially for applications),
-"/ copy this file to the apps startup directory,
+"/ copy this file to the apps startup directory,
"/ and edit the bitmap-file names found below as required.
"/ (notice, that the code below uses an image which does not allocate
"/ to many colors for the particular display in use - it may be useful
@@ -24,12 +25,12 @@
"/ for now: cannot do this under DOZE;
"/ win does not support viewBackgrounds and
"/ no event handling takes place at this time. sigh.
-"/ Display connections with round-trip-time >= 20 ms are
+"/ Display connections with round-trip-time >= 20 ms are
"/ considered slow and no banner is shown
(OperatingSystem isUNIXlike
and:[(Smalltalk at:#XPMReader) notNil "maybe minimal configuration"
- and:[Display notNil
+ and:[Display notNil
and:[Display roundTripTime < 20]]]) ifTrue:[
"/ choose one of the banners
"/ (select the one which fits our screen depth best,
--- a/smalltalk.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/smalltalk.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,3 +1,4 @@
+"/ Encoding: iso8859-1
"/
"/ $Header$
"/
@@ -58,7 +59,7 @@
cpu = 'sparc' ifTrue:[
"/ for now, disable if we detect running on a sparcV10;
"/ Reason:
- "/ we do not have v10 machines here at Exept (they even do not exist at this time),
+ "/ we do not have v10 machines here at Exept (they even do not exist at this time),
"/ and therefore have no way of checking if it runs on v10.
"/ I dont want ST/X to crash on your side in that case ...
"/ ... better run a bit slower than not running at all.
@@ -81,8 +82,8 @@
ObjectMemory infoPrinting:false.
"/ Smalltalk loadBinaries:true.
-Compiler allowUnderscoreInIdentifier:true.
-Compiler warnUnderscoreInIdentifier:false.
+Compiler allowUnderscoreInIdentifier:true.
+Compiler warnUnderscoreInIdentifier:false.
Compiler warnSTXSpecials:false.
!
@@ -129,7 +130,7 @@
"/ only use the local packages.
"/
'../../projects/smalltalk' asFilename exists ifTrue:[
- Smalltalk packagePath removeAll; add:'../../..'.
+ Smalltalk packagePath removeAll; add:'../../..'.
'smalltalk.rc [info]: setting packagePath for local operation' printCR.
].
@@ -137,7 +138,7 @@
"/ any additional local packages ?.
"/
'packages' asFilename exists ifTrue:[
- Smalltalk packagePath addFirst:'./packages'.
+ Smalltalk packagePath addFirst:'./packages'.
"/ 'additional local packages' printCR.
].
"/ 'packagePath: ' print. Smalltalk packagePath printCR.
@@ -178,7 +179,7 @@
Smalltalk fileInClassLibrary:'XWorkstation' inPackage:'stx:libview'.
OperatingSystem isMSWINDOWSlike ifTrue:[
Smalltalk fileInClassLibrary:'WinWorkstation' inPackage:'stx:libview'.
- ].
+ ].
].
openDisplay := true.
].
@@ -252,7 +253,7 @@
"/ and install all nonExisting classes as autoloaded
"/
-Class withoutUpdatingChangesDo:[
+Class withoutUpdatingChangesDo:[
|needToReactivate|
HistoryManager notNil ifTrue:[
@@ -300,7 +301,7 @@
"/ (see ObjectMemory>>documentation)
"/ Claus: I moved this to the private.rc file
"/
-"/ ObjectMemory incrementalGCLimit:100000.
+"/ ObjectMemory incrementalGCLimit:100000.
"/
"/ this starts the incremental GC when freeSpace drops below a limit
@@ -308,24 +309,24 @@
"/ (see ObjectMemory>>documentation)
"/ Claus: I moved this to the private.rc file
"/
-"/ ObjectMemory freeSpaceGCLimit:300000.
+"/ ObjectMemory freeSpaceGCLimit:300000.
"/ experimental: try to always keep some bytes in the pocket
"/ this changes the memory policy, to start the background collector whenever
-"/ freespace drops below 250k or 500k have been allocated since the last GC.
+"/ freespace drops below 250k or 500k have been allocated since the last GC.
"/ AND to allocate more memory, if (after the collect) less than 1Mb is free.
"/ Doing so makes the system behave better if lots of memory is required
"/ for short periods of time, since it prepares itself for that situation
"/ during idle time. (I often walk around in the fileBrowser, loading big
"/ files like XWorkstation.st or SystemBrowser.st ....)
-ObjectMemory freeSpaceGCAmount:1000000.
-ObjectMemory freeSpaceGCLimit:250000.
-ObjectMemory incrementalGCLimit:500000.
+ObjectMemory freeSpaceGCAmount:1000000.
+ObjectMemory freeSpaceGCLimit:250000.
+ObjectMemory incrementalGCLimit:500000.
ObjectMemory oldSpaceIncrement:500000.
ObjectMemory oldSpaceCompressLimit:0. "/ temporary kludge
-ObjectMemory startBackgroundCollectorAt:5.
-ObjectMemory startBackgroundFinalizationAt:5.
+ObjectMemory startBackgroundCollectorAt:5.
+ObjectMemory startBackgroundFinalizationAt:5.
"/ this limits the amount of memory which is allocated for oldSpace
"/ (for example to prevent ST/X from taking memory from other processes)
@@ -513,7 +514,7 @@
"/ just a quick check, if this ST/X installation seems to
"/ be halfway complete (it happened to some people, that
"/ their source/resource directories were not installed)
-"/ - better to warn early ...
+"/ - better to warn early ...
"/
|anyWrong missing|
Smalltalk isStandAloneApp ifFalse:[
@@ -617,9 +618,9 @@
'st.img' asFilename exists ifFalse:[
'.' asFilename isWritable ifTrue:[
|doneWithStartupStuff|
-
+
doneWithStartupStuff := Semaphore new.
-
+
Smalltalk addStartBlock:[
[
doneWithStartupStuff wait.
@@ -627,7 +628,7 @@
ObjectMemory primSnapShotOn:'st.img'
] forkAt:1
].
-
+
Smalltalk addStartBlock:[
[
Delay waitForSeconds:10.
--- a/smalltalk_r.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/smalltalk_r.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,3 +1,4 @@
+"/ Encoding: iso8859-1
"/
"/ $Header$
"/
@@ -44,4 +45,3 @@
"/
ObjectMemory reEnableJustInTimeCompilation.
ObjectMemory oldSpaceCompressLimit:0. "/ temporary kludge
-
--- a/stbc.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/stbc.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,3 +1,4 @@
+"/ Encoding: iso8859-1
"/
"/ $Header$
"/
@@ -10,8 +11,8 @@
"/
"/ creates file.cls, which can be binary loaded.
"/
-"/ Notice:
-"/ this is an experiment to provide a tool which looks like javac;
+"/ Notice:
+"/ this is an experiment to provide a tool which looks like javac;
"/ stbc is actually not used in the current system.
"/ (the same functionality is provided by the browsers fileOut-binary function)
"/
--- a/stxapp.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/stxapp.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,3 +1,4 @@
+"/ Encoding: iso8859-1
"/
"/ $Header$
"/