49 lines
935 B
Plaintext
49 lines
935 B
Plaintext
note
|
|
description: "[
|
|
A {SCHEMA} that describes placement of a {INTEGER_FIELD}
|
|
]"
|
|
author: "Jimmy J. Johnson"
|
|
copyright: "Copyright 2012, Jimmy J. Johnson"
|
|
license: "Eiffel Forum License v2 (see forum.txt)"
|
|
URL: "$URL: file:///F:/eiffel_repositories/jj_vision/trunk/interface/controls/string_field_schema.e $"
|
|
date: "$Date: 2012-03-16 14:05:07 -0400 (Fri, 16 Mar 2012) $"
|
|
revision: "$Revision: 7 $"
|
|
|
|
class
|
|
STRING_FIELD_SCHEMA
|
|
|
|
inherit
|
|
|
|
FIELD_SCHEMA
|
|
redefine
|
|
default_create
|
|
end
|
|
|
|
create
|
|
default_create
|
|
create {LINKED_LIST}
|
|
make
|
|
|
|
feature {NONE} -- Initialize
|
|
|
|
default_create
|
|
-- Create an instance
|
|
do
|
|
Precursor {FIELD_SCHEMA}
|
|
extend (length_field)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
length_field: INTEGER_FIELD
|
|
-- Create a field to store the `number_of_characters' of a FIELD
|
|
once
|
|
create Result
|
|
Result.set_label ("Length")
|
|
Result.set_x (30)
|
|
Result.set_y (0)
|
|
Result.set_width (50)
|
|
end
|
|
|
|
end
|