#REFACTORING by cg
class: DisplaySurface
added:
#automationUUID
#automationUUID:
#instanceUUID
removed: #instanceUuid
changed:
#uuid
#uuid:
--- a/DisplaySurface.st Thu Nov 09 22:20:59 2017 +0100
+++ b/DisplaySurface.st Thu Nov 09 22:39:46 2017 +0100
@@ -681,6 +681,42 @@
!DisplaySurface methodsFor:'accessing-misc'!
+automationUUID
+ "return my uuid (for automation and the pollonium st/x capture/replay tool).
+ This is a widget id, as specified in the uispec (if it is defined there).
+ Will be the same for all instances
+ (i.e. the same in different instances of the application).
+ Contrast this with the instanceUUID, which is unique for each view.
+
+ Notice: old uiSpecs do not provide/define a uuid, and nil is returned;
+ so the application's specs must be re-edited and saved again."
+
+ uuid isNil ifTrue:[^ uuid].
+ ^ uuid asUUID
+
+ "
+ Transcript topView uuid
+ Transcript topView instanceUuid
+ "
+
+ "Created: / 09-11-2017 / 22:33:10 / cg"
+!
+
+automationUUID:aUuidOrUuidString
+ "set my uuid (for automation and the pollonium st/x capture/replay tool).
+ This is a widget id, as specified in the uispec (if it is definedthere).
+ Will be the same for all instances
+ (i.e. the same in different instances of the application).
+ Contrast this with the instanceUUID, which is unique for each view.
+
+ Notice: old uiSpecs do not provide/define a uuid, and nil is returned from uuid;
+ so the application's specs must be re-edited and saved again."
+
+ uuid := aUuidOrUuidString
+
+ "Created: / 09-11-2017 / 22:33:14 / cg"
+!
+
backingStore:how
"turn on/off backingStore (saving my pixels)
how may true/false, but also #always, #whenMapped or #never."
@@ -715,16 +751,16 @@
"Modified: / 15.3.1999 / 08:25:10 / cg"
!
-instanceUuid
+instanceUUID
"return my unique uuid.
This will be assigned once and only once per instance
(i.e. the same type of view within different applications will
- have different instanceUuids)"
+ have different instanceUUIDs)"
|id|
- (id := self getAttribute:#instanceUuid) isNil ifTrue:[
- self setAttribute:#instanceUuid to:(id := UUID new).
+ (id := self getAttribute:#instanceUUID) isNil ifTrue:[
+ self setAttribute:#instanceUUID to:(id := UUID new).
].
^ id
@@ -733,7 +769,7 @@
Transcript topView instanceUuid
"
- "Created: / 09-11-2017 / 22:13:54 / cg"
+ "Created: / 09-11-2017 / 22:32:07 / cg"
!
isInputOnly
@@ -800,39 +836,22 @@
!
uuid
- "return my uuid (for automation and the pollonium st/x capture/replay tool).
- This is a widget id, as specified in the uispec (if it is defined there).
- Will be the same for all instances
- (i.e. the same in different instances of the application).
- Contrast this with the instanceUuid, which is unique for each view.
-
- Notice: old uiSpecs do not provide/define a uuid, and nil is returned;
- so the application's specs must be re-edited and saved again."
-
- uuid isNil ifTrue:[^ uuid].
- ^ uuid asUUID
+ <resource: #obsolete>
+ ^ self automationUUID
"
Transcript topView uuid
Transcript topView instanceUuid
"
- "Modified (comment): / 09-11-2017 / 22:20:39 / cg"
+ "Modified: / 09-11-2017 / 22:33:24 / cg"
!
uuid:aUuidOrUuidString
- "set my uuid (for automation and the pollonium st/x capture/replay tool).
- This is a widget id, as specified in the uispec (if it is definedthere).
- Will be the same for all instances
- (i.e. the same in different instances of the application).
- Contrast this with the instanceUuid, which is unique for each view.
-
- Notice: old uiSpecs do not provide/define a uuid, and nil is returned from uuid;
- so the application's specs must be re-edited and saved again."
-
- uuid := aUuidOrUuidString
-
- "Modified (comment): / 09-11-2017 / 22:20:51 / cg"
+ <resource: #obsolete>
+ ^ self automationUUID:aUuidOrUuidString
+
+ "Modified: / 09-11-2017 / 22:34:12 / cg"
! !
!DisplaySurface methodsFor:'accessing-names'!