47 lines
667 B
Plaintext
47 lines
667 B
Plaintext
note
|
|
description: "[
|
|
Objects that ...
|
|
]"
|
|
author: "$Author$"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
EWF_GRAPHICAL_WIZARD
|
|
|
|
inherit
|
|
EV_APPLICATION
|
|
|
|
SHARED_EXECUTION_ENVIRONMENT
|
|
undefine
|
|
default_create, copy
|
|
end
|
|
|
|
create
|
|
make_and_launch
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make_and_launch
|
|
local
|
|
w: like main_window
|
|
cons: EWF_CONSOLE_WIZARD_APPLICATION
|
|
do
|
|
default_create
|
|
if execution_environment.arguments.index_of_word_option ("-console") > 0 then
|
|
create cons.make
|
|
else
|
|
create w
|
|
main_window := w
|
|
|
|
w.show
|
|
launch
|
|
end
|
|
end
|
|
|
|
feature {NONE} -- Implementation
|
|
|
|
main_window: detachable EWF_WIZARD_WINDOW
|
|
|
|
end
|