101 lines
2.3 KiB
Plaintext
101 lines
2.3 KiB
Plaintext
|
note
|
||
|
|
description: "Objects that ..."
|
||
|
|
author: ""
|
||
|
|
date: "$Date: 2012-05-31 14:05:35 -0400 (Thu, 31 May 2012) $"
|
||
|
|
revision: "$Revision: 10 $"
|
||
|
|
|
||
|
|
class
|
||
|
|
TEST_MAIN_WINDOW
|
||
|
|
|
||
|
|
inherit
|
||
|
|
|
||
|
|
JJ_MAIN_WINDOW
|
||
|
|
redefine
|
||
|
|
create_interface_objects,
|
||
|
|
initialize,
|
||
|
|
target_imp,
|
||
|
|
set_target
|
||
|
|
end
|
||
|
|
|
||
|
|
create
|
||
|
|
default_create,
|
||
|
|
make
|
||
|
|
|
||
|
|
feature {NONE} -- Initialization
|
||
|
|
|
||
|
|
create_interface_objects
|
||
|
|
-- Create objects to be used by `Current' in `initialize'
|
||
|
|
-- Implemented by descendants to create attached objects
|
||
|
|
-- in order to adhere to void-safety due to the implementation bridge pattern.
|
||
|
|
do
|
||
|
|
Precursor {JJ_MAIN_WINDOW}
|
||
|
|
create first_tool
|
||
|
|
create second_tool
|
||
|
|
create edit_tool
|
||
|
|
create third_tool
|
||
|
|
create forth_tool
|
||
|
|
end
|
||
|
|
|
||
|
|
initialize
|
||
|
|
-- Set up the window
|
||
|
|
do
|
||
|
|
Precursor {JJ_MAIN_WINDOW}
|
||
|
|
-- split_manager.enable_mode_changes
|
||
|
|
split_manager.set_vertical
|
||
|
|
split_manager.extend_siblings (first_tool, edit_tool)
|
||
|
|
check attached {VERTICAL_SPLIT_VIEW} split_manager.last_view as sa1 then
|
||
|
|
split_manager.extend_siblings (third_tool, forth_tool)
|
||
|
|
check attached {VERTICAL_SPLIT_VIEW} split_manager.last_view as sa2 then
|
||
|
|
split_manager.set_horizontal
|
||
|
|
split_manager.extend_siblings (sa1, sa2)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
-- split_manager.add_horizontal (split_manager.last_split, create {INTERFACE_TABLE_TOOL})
|
||
|
|
split_manager.enable_mode_changes
|
||
|
|
split_manager.select_view (first_tool)
|
||
|
|
end
|
||
|
|
|
||
|
|
feature -- Access
|
||
|
|
|
||
|
|
first_tool: TEXT_TOOL
|
||
|
|
-- To place a tool into the window for testing
|
||
|
|
|
||
|
|
edit_tool: EDIT_TOOL
|
||
|
|
-- Tool which manages the views for editting a record.
|
||
|
|
|
||
|
|
second_tool: TEST_TOOL
|
||
|
|
-- To place a second tool into the window for testing.
|
||
|
|
|
||
|
|
third_tool: TEST_TOOL
|
||
|
|
|
||
|
|
forth_tool: TEST_TOOL
|
||
|
|
|
||
|
|
feature -- Element change
|
||
|
|
|
||
|
|
set_target (a_target: like target)
|
||
|
|
-- Change the `target' and pass it to the `tree_tool'.
|
||
|
|
do
|
||
|
|
Precursor {JJ_MAIN_WINDOW} (a_target)
|
||
|
|
first_tool.set_target (a_target)
|
||
|
|
edit_tool.set_target (a_target)
|
||
|
|
-- edit_tool.set_schema (target.Default_schema)
|
||
|
|
edit_tool.draw
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
feature -- Status report
|
||
|
|
|
||
|
|
is_editor_tester_main_window_interface_initialized: BOOLEAN_REF
|
||
|
|
-- Have the interface items for this class been added to the `interface_table'?
|
||
|
|
once
|
||
|
|
create Result
|
||
|
|
-- is this needed?
|
||
|
|
end
|
||
|
|
|
||
|
|
feature {NONE} -- Implementation
|
||
|
|
|
||
|
|
target_imp: detachable TEST_RECORD
|
||
|
|
-- The object being edited
|
||
|
|
|
||
|
|
end
|