INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

project: "Visual Eiffel"
revision: "$Revision: 1.1 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: grape
class FILE_EDIT_WINDOW
inherit

EDIT_WINDOW
rename
make as make_edit,
on_command as on_edit_event
redefine
can_destroy
end

EDIT_WINDOW
rename
make as make_edit
redefine
can_destroy,
on_command
select
on_command
end

EDITOR_SYSTEM_COMMAND
end
creation

make_new,
open
feature

file_name: STRING

save_dialog: FILE_DIALOG

fsystem: FILE_SYSTEM
feature

open (filename: STRING)
-- Open a file and loads its contents into an edit window
require
file_name_is_not_void: filename /= void
file_must_exist: fsystem.file_exists (filename)

make_new (title: STRING)
-- Opens an empty editing window with specified title

save
-- Saves all changes to a file
require
valid_file_name: file_name /= void

save_as (new_name: STRING)
-- Saves changes to a file pointed by new_name
require
valid_file_name: new_name /= void

set_save_dialog (dlg: FILE_DIALOG)
require
dialog_is_not_void: dlg /= void
end -- class FILE_EDIT_WINDOW

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES