--- a/WindowBuilder.st Thu Oct 23 15:36:34 1997 +0200
+++ b/WindowBuilder.st Tue Oct 28 19:37:28 1997 +0100
@@ -14,7 +14,7 @@
instanceVariableNames:'window windowView application bindings visuals focusSequence
namedComponents helpKeys componentCreationHook applicationClass
keyboardProcessor subCanvasSpecs'
- classVariableNames:''
+ classVariableNames:'StopOnError'
poolDictionaries:''
category:'Interface-Support-UI'
!
@@ -99,15 +99,20 @@
application notNil ifTrue:[
Object messageNotUnderstoodSignal handle:[:ex |
- Transcript showCR:'not understood: ' , aSymbol.
] do:[
^ application aspectFor:aSymbol
- ]
- ]
+ ].
+ Object messageNotUnderstoodSignal handle:[:ex |
+ ] do:[
+ ^ application class aspectFor:aSymbol
+ ].
+ Transcript showCR:'WindowBuilder: no aspect for ' , aSymbol storeString.
+ StopOnError == true ifTrue:[self halt]. "/ avoids debugger in end-user apps
+ ].
].
^ nil
- "Modified: 17.1.1997 / 19:28:32 / cg"
+ "Modified: / 28.10.1997 / 19:36:41 / cg"
!
aspectAt:aSymbol put:aModel
@@ -430,7 +435,6 @@
application notNil ifTrue:[
Object messageNotUnderstoodSignal handle:[:ex |
- Transcript showCR:'not understood: ' , aKey.
] do:[
^ application actionFor:aKey
]
@@ -440,9 +444,14 @@
^ applicationClass actionFor:aKey
]
].
+
+ Transcript showCR:'WindowBuilder: no action for: ' , aKey storeString.
+ StopOnError == true ifTrue:[self halt]. "/ avoids debugger in end-user apps
+
^ []
- "Created: 17.1.1997 / 21:08:22 / cg"
+ "Created: / 17.1.1997 / 21:08:22 / cg"
+ "Modified: / 28.10.1997 / 12:52:57 / cg"
!
actionFor:aKey withValue:aValue
@@ -463,7 +472,6 @@
application notNil ifTrue:[
Object messageNotUnderstoodSignal handle:[:ex |
- Transcript showCR:'not understood: ' , aKey.
] do:[
^ application actionFor:aKey withValue:aValue
]
@@ -473,9 +481,14 @@
^ applicationClass actionFor:aKey withValue:aValue
]
].
+
+ Transcript showCR:'WindowBuilder: no action for: ' , aKey storeString.
+ StopOnError == true ifTrue:[self halt]. "/ avoids debugger in end-user apps
+
^ [:dummy | ]
- "Created: 17.1.1997 / 21:08:22 / cg"
+ "Created: / 17.1.1997 / 21:08:22 / cg"
+ "Modified: / 28.10.1997 / 12:53:22 / cg"
!
aspectFor:aKey
@@ -494,7 +507,6 @@
application notNil ifTrue:[
Object messageNotUnderstoodSignal handle:[:ex |
- Transcript showCR:'not understood: ' , aKey.
] do:[
^ application aspectFor:aKey
]
@@ -504,9 +516,11 @@
^ applicationClass aspectFor:aKey
]
].
+
^ self aspectAt:aKey
- "Created: 17.1.1997 / 21:06:16 / cg"
+ "Created: / 17.1.1997 / 21:06:16 / cg"
+ "Modified: / 28.10.1997 / 12:53:43 / cg"
!
componentFor:aKey
@@ -541,7 +555,6 @@
application notNil ifTrue:[
Object messageNotUnderstoodSignal handle:[:ex |
- Transcript showCR:'not understood: ' , aKey.
] do:[
^ application labelFor:aKey
]
@@ -551,8 +564,13 @@
^ applicationClass labelFor:aKey
]
].
+
+"/ Transcript showCR:'WindowBuilder: no label for: ' , aKey storeString.
+"/ StopOnError == true ifTrue:[self halt]. "/ avoids debugger in end-user apps
+
^ self aspectAt:aKey
+ "Modified: / 28.10.1997 / 12:54:10 / cg"
!
listFor:aKey
@@ -564,7 +582,6 @@
application notNil ifTrue:[
Object messageNotUnderstoodSignal handle:[:ex |
- Transcript showCR:'not understood: ' , aKey.
] do:[
^ application listFor:aKey
]
@@ -574,9 +591,14 @@
^ applicationClass listFor:aKey
]
].
+
+"/ Transcript showCR:'WindowBuilder: no list for: ' , aKey storeString.
+"/ StopOnError == true ifTrue:[self halt]. "/ avoids debugger in end-user apps
+
^ self aspectAt:aKey
- "Created: 17.1.1997 / 21:08:45 / cg"
+ "Created: / 17.1.1997 / 21:08:45 / cg"
+ "Modified: / 28.10.1997 / 12:54:32 / cg"
! !
!WindowBuilder methodsFor:'spec creation callbacks'!
@@ -787,5 +809,5 @@
!WindowBuilder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.51 1997-10-23 13:36:34 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.52 1997-10-28 18:37:28 cg Exp $'
! !