--- a/Behavior.st Wed Feb 12 19:53:20 2014 +0100
+++ b/Behavior.st Wed Feb 12 20:06:28 2014 +0100
@@ -1096,6 +1096,8 @@
"Created: / 01-06-2012 / 20:37:46 / cg"
! !
+
+
!Behavior methodsFor:'Compatibility-Dolphin'!
allSubinstances
@@ -1381,7 +1383,8 @@
!
flags
- "return the receivers flag bits"
+ "return the receiver's flag bits.
+ see flagXXX methods on my class side for details"
^ flags
!
@@ -3004,15 +3007,16 @@
flags:aNumber
"set the flags.
+ see flagXXX methods on my class side for details.
This method is for special uses only - there will be no recompilation
and no change record written here;
Warning:
- the flags slot specifies the layout and behavior of my instances slots
- and affects both the VM's and the class library's behavior.
- It is required to be consistent and correct.
- Setting it to a wrong value may severely affect the system's operation,
- and even crash the system (in the garbage collector).
- Do NOT use it, unless you really know what you are doing."
+ the flags slot specifies the layout and behavior of my instances slots
+ and affects both the VM's and the class library's behavior.
+ It is required to be consistent and correct.
+ Setting it to a wrong value may severely affect the system's operation,
+ and even crash the system (in the garbage collector).
+ Do NOT use it, unless you really know what you are doing."
flags := aNumber
!
@@ -5029,10 +5033,10 @@
!Behavior class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.353 2014-02-12 12:35:00 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.354 2014-02-12 19:06:28 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.353 2014-02-12 12:35:00 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.354 2014-02-12 19:06:28 cg Exp $'
! !