38 lines
436 B
Plaintext
38 lines
436 B
Plaintext
note
|
|
description: "[
|
|
Root class for all the views in VITP
|
|
]"
|
|
author: "Jimmy J. Johnson"
|
|
|
|
class
|
|
VITP_VIEW
|
|
|
|
inherit
|
|
|
|
JJ_MODEL_WORLD_VIEW
|
|
redefine
|
|
-- create_interface_objects,
|
|
-- world,
|
|
-- target,
|
|
-- draw
|
|
end
|
|
|
|
create {VITP_VIEW}
|
|
list_make
|
|
|
|
feature -- Basic operations
|
|
|
|
-- draw
|
|
-- -- Redraw the window
|
|
-- do
|
|
---- world.wipe_out
|
|
-- world.full_redraw
|
|
-- Precursor {JJ_MODEL_WORLD_VIEW}
|
|
-- end
|
|
|
|
|
|
invariant
|
|
|
|
|
|
end
|