*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 01 Feb 2013 11:26:57 +0100
changeset 1293 f208ae69da06
parent 1292 fd409c573ac7
child 1294 3e8e0aef789c
*** empty log message ***
display.rc
--- 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.