INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

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

DIALOG
rename
init as dialog_init,
make as dialog_make
redefine
run
end

DIALOG
rename
make as dialog_make
redefine
init,
run
select
init
end
creation

make,
make_di
feature

selected_font: FONT

default_font: FONT

no_face_selection, no_style_selection, no_size_selection: BOOLEAN

font_point_size: REAL
feature

make
-- Init the dialog box

make_di

set_default_font (a_font: FONT)

set_initial_selections (no_face, no_style, no_size: BOOLEAN)
end -- class FONT_DIALOG

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES