--- a/display.rc Wed Jan 30 16:18:08 2013 +0100
+++ b/display.rc Fri Feb 01 11:26:57 2013 +0100
@@ -233,7 +233,6 @@
if there is a corresponding file d_<displayName>.rc ...
thats the one to take.
"
-'1' print. display printCR.
s := Smalltalk systemFileStreamFor:('d_' , display , '.rc').
s notNil ifTrue:[
displayType := display.
@@ -412,7 +411,6 @@
"/ 'display.rc [info]: reading ''keyboard.rc'' ...' infoPrintCR.
Smalltalk fileIn:'keyboard.rc'.
-'2' print. displayType printCR.
Smalltalk isStandAloneApp ifFalse:[
('display.rc [info]: ') infoPrint.
(Smalltalk getSystemFileName:('d_' , displayType , '.rc')) isNil ifTrue:[
@@ -495,18 +493,18 @@
"/ style := #mswindowsXP.
"/ type := OperatingSystem getSystemType.
"/ type = 'next' ifTrue:[
-"/ style := #next
+"/ style := #next
"/ ].
"/ type = 'iris' ifTrue:[
-"/ style := #iris
+"/ style := #iris
"/ ].
"/ type = 'os2' ifTrue:[
-"/ style := #os2
+"/ style := #os2
"/ ].
"/ type = 'win32' ifTrue:[
-"/ (OperatingSystem isVistaLike) ifTrue:[
-"/ style := #mswindowsVista
-"/ ].
+"/ (OperatingSystem isVistaLike) ifTrue:[
+"/ style := #mswindowsVista
+"/ ].
"/ ].
View defaultStyle:style.
'display.rc [info]: no style set - default to ' infoPrint. style infoPrintCR.