INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

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

BUTTON
rename
make as b_make
redefine
build,
on_destroy
end

COMPONENT
end
creation

load,
make
feature

pic: PICTURE

text_offset: REAL

black_pen: PEN

dark_gray_pen: PEN

light_gray_pen: PEN

white_pen: PEN

gray_brush: BRUSH

pos: BOOLEAN

make (s: STRING; r: RECT; ctx: INTEGER; p: PICTURE; position: BOOLEAN)

set_picture (p: PICTURE)

press

release

is_pressed: BOOLEAN

contents_to_string: STRING

is_string: BOOLEAN

on_destroy: INTEGER

on_self_drawing (gc: DISPLAY_GRAPHICS_CONTEXT; x, y, w, h: INTEGER; sel, focus, disabled: BOOLEAN)

build (rc: RESOURCE_CONTAINER; p: POINTER)
end -- class PICTURE_BUTTON

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES