immutable class RECTANGLE < $IS_EQ, $PLANES, $IMMUTABLE, $BINARY, $NIL


Ancestors
$NIL $IS_NIL $BINARY $IMMUTABLE
$STR $PLANES $SURFACES $IS_EQ



Public


Readable Attributes
attr width, height : LENGTH ;
attr width, height : LENGTH ;

Features
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


Private

attr width, height : LENGTH ;
attr width, height : LENGTH ;

The Sather Home Page