149 lines
3.9 KiB
Plaintext
149 lines
3.9 KiB
Plaintext
note
|
|
description : "About dialog box"
|
|
author : "Generated by the New Vision2 Application Wizard."
|
|
date : "$Date: 2012-03-16 14:05:07 -0400 (Fri, 16 Mar 2012) $"
|
|
revision : "1.0.0"
|
|
|
|
class
|
|
ABOUT_DIALOG
|
|
|
|
inherit
|
|
|
|
-- EV_DIALOG
|
|
EV_TITLED_WINDOW
|
|
-- Used EV_TITLED_WINDOW so the dialog can be declared as
|
|
-- "once" and non-modal. The close actions for DIALOGs
|
|
-- were too restrictive or not exported.
|
|
redefine
|
|
create_interface_objects,
|
|
initialize
|
|
end
|
|
|
|
create
|
|
default_create
|
|
|
|
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 {EV_TITLED_WINDOW}
|
|
create pixmap
|
|
create message_label
|
|
create ok_button.make_with_text ("OK")
|
|
end
|
|
|
|
initialize
|
|
-- Populate the dialog box.
|
|
local
|
|
main_horizontal_box: EV_HORIZONTAL_BOX
|
|
left_vertical_box: EV_VERTICAL_BOX
|
|
right_vertical_box: EV_VERTICAL_BOX
|
|
horizontal_separator: EV_HORIZONTAL_SEPARATOR
|
|
buttons_box: EV_HORIZONTAL_BOX
|
|
ev_cell: EV_CELL
|
|
do
|
|
Precursor
|
|
|
|
--| Add the pixmap to the dialog box.
|
|
--|
|
|
--| We do not use `{EV_STOCK_PIXMAPS}.Information_pixmap'
|
|
--| directly because a given pixmap can only have one
|
|
--| parent. `Information_pixmap' may have alredy been put
|
|
--| into another container.
|
|
pixmap.copy ((create {EV_STOCK_PIXMAPS}).Information_pixmap)
|
|
pixmap.set_minimum_size (pixmap.width, pixmap.height)
|
|
|
|
create message_label
|
|
message_label.align_text_left
|
|
|
|
create horizontal_separator
|
|
|
|
ok_button.set_minimum_size (75, 24)
|
|
ok_button.select_actions.extend (agent destroy)
|
|
|
|
create buttons_box
|
|
buttons_box.extend (create {EV_CELL}) -- Fill in empty space on left
|
|
buttons_box.extend (ok_button)
|
|
buttons_box.disable_item_expand (ok_button)
|
|
|
|
create left_vertical_box
|
|
left_vertical_box.set_border_width (7)
|
|
left_vertical_box.extend (pixmap)
|
|
left_vertical_box.disable_item_expand (pixmap)
|
|
left_vertical_box.extend (create {EV_CELL})
|
|
|
|
create right_vertical_box
|
|
right_vertical_box.set_padding (7)
|
|
right_vertical_box.extend (message_label)
|
|
right_vertical_box.extend (horizontal_separator)
|
|
right_vertical_box.disable_item_expand (horizontal_separator)
|
|
right_vertical_box.extend (buttons_box)
|
|
right_vertical_box.disable_item_expand (buttons_box)
|
|
|
|
create main_horizontal_box
|
|
main_horizontal_box.set_border_width (7)
|
|
create ev_cell
|
|
ev_cell.set_minimum_width (21)
|
|
main_horizontal_box.extend (ev_cell)
|
|
main_horizontal_box.disable_item_expand (ev_cell)
|
|
main_horizontal_box.extend (left_vertical_box)
|
|
main_horizontal_box.disable_item_expand (left_vertical_box)
|
|
create ev_cell
|
|
ev_cell.set_minimum_width (28)
|
|
main_horizontal_box.extend (ev_cell)
|
|
main_horizontal_box.disable_item_expand (ev_cell)
|
|
main_horizontal_box.extend (right_vertical_box)
|
|
extend (main_horizontal_box)
|
|
|
|
-- set_default_push_button (ok_button)
|
|
-- set_default_cancel_button (ok_button)
|
|
|
|
set_title (Default_title)
|
|
set_message (Default_message)
|
|
set_size (400, 150)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
message: STRING
|
|
-- Message displayed in the dialog box.
|
|
do
|
|
Result := message_label.text
|
|
end
|
|
|
|
feature -- Element change
|
|
|
|
set_message (a_message: STRING)
|
|
do
|
|
message_label.set_text (a_message)
|
|
end
|
|
|
|
feature {NONE} -- Implementation
|
|
|
|
message_label: EV_LABEL
|
|
-- Label situated on the top of the dialog,
|
|
-- contains the message.
|
|
|
|
pixmap: EV_PIXMAP
|
|
-- Pixmap display on the left of the dialog.
|
|
|
|
ok_button: EV_BUTTON
|
|
-- "OK" button.
|
|
|
|
feature {NONE} -- Implementation / Constants
|
|
|
|
Default_title: STRING = "Standard Interface Cluster"
|
|
-- Default title for the dialog window.
|
|
|
|
Default_message: STRING =
|
|
"%N%N%
|
|
%Written by%N%N%
|
|
%Johnson J. Johnson%N%N%N%
|
|
%with ISE Eiffel 6.68 (free version) with Eiffel Vision."
|
|
|
|
|
|
end
|