TopView.st
changeset 8293 54f370b42c6f
parent 8252 77740c39cd3f
child 8395 d52686498a23
--- a/TopView.st	Thu Feb 15 19:19:39 2018 +0100
+++ b/TopView.st	Mon Mar 05 17:21:08 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -73,7 +71,7 @@
 
 examples
 "
-  Notice, the following examples only demonstrate the windos style (not its modal behavior).
+  Notice, the following examples only demonstrate the windows style (not its modal behavior).
   the style is controlled by the systems windowManager, and might even be ignored by some.
   (for example, the dialog- and normal styles often look the same).
 
@@ -81,108 +79,108 @@
 
   Modeless:
     regular style:
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v extent:200@200.
-	v open
-							    [exEnd]
+        v := TopView new.
+        v extent:200@200.
+        v open
+                                                            [exEnd]
 
     dialog:
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v beDialogView.
-	v extent:200@200.
-	v open
-	Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+        v := TopView new.
+        v beDialogView.
+        v extent:200@200.
+        v open
+        Delay waitForSeconds:10. v destroy.
+                                                            [exEnd]
 
     popUp (always on top):
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v bePopUpView.
-	v extent:200@200.
-	v open.
-	Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+        v := TopView new.
+        v bePopUpView.
+        v extent:200@200.
+        v open.
+        Delay waitForSeconds:10. v destroy.
+                                                            [exEnd]
 
     undecorated (looks loke popUp, but is not always on top):
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v beUndecorated.
-	v extent:200@200.
-	v open.
-	Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+        v := TopView new.
+        v beUndecorated.
+        v extent:200@200.
+        v open.
+        Delay waitForSeconds:10. v destroy.
+                                                            [exEnd]
 
     toolwindow (looks loke normal, but has smaller windowTitle-area on win32):
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v beToolWindow.
-	v extent:200@200.
-	v open.
-	Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+        v := TopView new.
+        v beToolWindow.
+        v extent:200@200.
+        v open.
+        Delay waitForSeconds:10. v destroy.
+                                                            [exEnd]
 
     toolwindow dialog (looks loke normal, but has smaller windowTitle-area on win32):
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v beToolDialog.
-	v extent:200@200.
-	v open.
-	Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+        v := TopView new.
+        v beToolDialog.
+        v extent:200@200.
+        v open.
+        Delay waitForSeconds:10. v destroy.
+                                                            [exEnd]
 
   Modal:
     regular style:
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v extent:200@200.
-	v openModal
-							    [exEnd]
+        v := TopView new.
+        v extent:200@200.
+        v openModal
+                                                            [exEnd]
 
     dialog:
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v beDialogView.
-	v extent:200@200.
-	v openModal
-							    [exEnd]
+        v := TopView new.
+        v beDialogView.
+        v extent:200@200.
+        v openModal
+                                                            [exEnd]
 
     popUp (always on top):
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v bePopUpView.
-	v extent:200@200.
-	v openModal
-							    [exEnd]
+        v := TopView new.
+        v bePopUpView.
+        v extent:200@200.
+        v openModal
+                                                            [exEnd]
 
     undecorated (looks loke popUp, but is not always on top):
-							    [exBegin]
-	|v|
+                                                            [exBegin]
+        |v|
 
-	v := TopView new.
-	v beUndecorated.
-	v extent:200@200.
-	v openModal
-							    [exEnd]
+        v := TopView new.
+        v beUndecorated.
+        v extent:200@200.
+        v openModal
+                                                            [exEnd]
 
 "
 ! !