Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#OTHER
authorClaus Gittinger <cg@exept.de>
Sat, 21 Nov 2015 00:21:14 +0100
changeset 3523 4454dc8e0b06
parent 3521 3ba988e35485
child 3524 375cfd9a940c
#OTHER class: ApplicationModel changed: #initializeScreenDevice
ApplicationModel.st file | annotate | diff | comparison | revisions 
--- a/ApplicationModel.st	Wed Nov 18 13:10:31 2015 +0100
+++ b/ApplicationModel.st	Sat Nov 21 00:21:14 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -2754,7 +2752,10 @@
 
 initializeScreenDevice
     Screen notNil ifTrue:[
-	device := Screen current.
+        device := Screen current.
+        device isOpen ifFalse:[
+            self error:'screen device is not open'
+        ].    
     ]
 !
hg/stx-libview2