INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
copyright:
"Object Tools, 1996-2001"
version:
"1.3"
cluster:
formats
class
G_INTEGER_FORMATTER
inherit
G_UNSIGNED_DECIMAL_INTEGER_FORMATTER
redefine
make
,
output
,
set_item
,
set_sign
end
G_EXTENDED_MATH
end
creation
make
feature
sign
:
STRING
minus_sign
:
CHARACTER
make
(
i
:
INTEGER_REF
)
require
format_number
:
i
/=
void
set_sign
(
s
:
CHARACTER
)
require
legal_sign
: (
s
.
is_equal
(' '))
or else
(
s
.
is_equal
('+'))
set_item
(
i
:
INTEGER
)
-- Set the new value without changing the format
output
:
STRING
end
-- class
G_INTEGER_FORMATTER
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES