smalltalk_r.rc
changeset 488 521e2d58f050
parent 458 d27d5454b222
child 490 f73438a9350d
--- a/smalltalk_r.rc	Mon May 13 13:12:33 2002 +0200
+++ b/smalltalk_r.rc	Tue May 21 10:16:25 2002 +0200
@@ -11,9 +11,17 @@
 "/ is restarted. Usually, everything should stay as it was,
 "/ except for things like keyboard mapping (if running on another display)
 "/
-"/ notice, that all views and things have already been restored when this
-"/ script is run ....
-"/
+
+"/ first, restart the Display connection
+Display notNil ifTrue:[
+    (Display reinitializeFor:Screen defaultDisplayName) isNil ifTrue:[
+	'smalltalk_r.rc [error]: Cannot restart connection to: ' errorPrint.
+	Screen defaultDisplayName errorPrintCR.
+	Smalltalk exit.
+    ].
+].
+"/ Tell smalltalk, that the display may be used now.
+Smalltalk displayInitializationDone.
 
 "/
 "/ this handles all variant display stuff