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