immutable class RECTANGLE < $IS_EQ, $PLANES, $IMMUTABLE, $BINARY, $NIL |
---|
$NIL | $IS_NIL | $BINARY | $IMMUTABLE | $STR | $PLANES | $SURFACES | $IS_EQ |
attr width, height : LENGTH ; |
---|
attr width, height : LENGTH ; |
---|
binstr : BINSTR .. Included as binstr |
---|
build( |
---|
create(str : BINSTR) : SAME .. Included as create |
---|
create( .. Included as create |
---|
create( .. Included as create |
---|
is_eq( .. Included as is_eq |
---|
is_eq(other : $OB) : BOOL .. Included as is_eq |
---|
**** | This is the generic equality predicate. c.f. the class $IS_EQ |
is_nil : BOOL .. Included as is_nil |
---|
nil : SAME .. Included as nil |
---|
position( .. Included as position |
---|
read(index : BIN_CURSOR) : SAME .. Included as read |
---|
str( .. Included as str |
---|
str( .. Included as str |
---|
str( .. Included as str |
---|
str : STR .. Included as str |
---|
write(fyle : BIN_FILE) .. Included as write |
---|
attr width, height : LENGTH ; |
---|
attr width, height : LENGTH ; |
---|