Lisaac prototype interface

Lisaac^TM Platform

G_WIN_OUT_TRANS_TEST

Group elements for GUI.

****** WARNING : JUST TEST ***********

Inherit/Insert Summary
`parent_window`
`parent_g_expr`
`parent_area`
`parent_video` No developed. ABSTRACT_BITMAP := ABSTRACT_BITMAP;
`parent_inbox` No developed.
`parent_object` No developed.

Constructor Summary
`create with`
`create size`

Slot Summary
`title_len`
`title`
`stat`
`is_open`
`open_by`
`close`
`mask`
`clear_mask`
`height`
`width`
`clip_x0`
`clip_y0`
`clip_x1`
`clip_y1`
`spot_x`
`spot_y`
`parent` Englobe window.
`child` First children.
`prev` Previous window.
`next` Next window. +-parent---------------------+ \| +-self-----------\| \| +-next---\| \| \| \| \| +-child--+ \| \| \| \| \| \| \| \| \| \| +--------+ \| \| \| \| +-prev--------\| \| \| +--\| \| \| +-----------\| \| \| \| \| +----------------------------+
`plan`
`clip` Cash clip zone. Current window absolute position.
`x_window`
`y_window`
`debug_display`
`get_x_window`
`get_y_window`
`list_plan`
`list_x`
`list_y`
`display_list_x`
`last_clip`
`first_clip`
`top_clip`
`debug`
`margin_clip_x0`
`margin_clip_y0`
`margin_clip_x1`
`margin_clip_y1`
`redraw to`
`refresh`
`attribute`
`fix_width_bit`
`fix_height_bit`
`horizontal_bit`
`vertical_bit`
`is_fix_width`
`is_fix_height`
`is_horizontal`
`is_vertical`
`set_attribute_bit`
`fix_width`
`fix_height`

Creation.
`make with`

Size.
`width_min`
`height_min`

Update position.
`set_position at size`

Display.
`draw_slave from to`

******** UPDATE ******
`draw to`
`slave_pixel_hard color`
`slave_line_h_hard until color`
`slave_line_h_hard until image offset`

Event.
`receive` Default.
`get_object`

Creation
`make from size`
`resize` Resize window.

Master display (Build mask)
`pixel_hard color`
`line_h_hard until color`
`line_h_hard until image offset`

Slave display (Use Mask)
`mask_draw to color`

Redefine BITMAP. Size zone.
`x_min`
`y_min`
`x_max`
`y_max`

Window links.
`set_next`
`set_prev`
`set_child`

Delete window
`delete`

Moving window
`update from size`
`move`
`set_position`

First window
`first` put first plan window.
`get_window` Get object pointer by (X,Y).

list_plan={plan1,plan2} . plan1+---------------Y---------+ \| . \| \| plan2+----Y-----------------+ \| \| . : \| \| \| . : \| \| \| . : \| .....X..........X..............X.......X.....list_x \| \| . : \| \| \| . : \| \| +----Y-----------------+ \| . \| +---------------Y---------+ . list_y
`stack_plan`

\| \| \| top_clip \| \| \| +-----------+ +------------+ +-----------+ +-----------+ \| \| \| \| \| \| \| first_clip \| ... \| last_clip \| \| NEW \| \| \| \| \| \| \| +------------+ +-----------+ +-----------+
`add_clip from to`
`remove_plan`
`append_plan`
`update_plan`
`creat_clip`
`clip_next_child`
`clip_type1`
`sub_delete`
`sub_move`
`sub_resize`

get_clip x,y : [clip] X#####+-------++-------+ \| #\| \|\| \| \| #\| \|\| \| +----#######--++-------+ +---------+#-----------+ \| \|# \| \| \|####>X(x,y) \| \| \|\| \| +---------++-----------+
`get_clip` Find clip (x,y), begin search is `clip`.

Dimension.
`width_max`
`height_max`

Operator position.
`Infix '\|'`
`Infix '/'`

Style...
`color_dark`
`color_light`
`color_back`
`color_back_light`
`draw_border_in to`
`draw_border_out to`

Inherit/Insert Detail

parent_window

.../extra/gui/g_win_out_trans_test.li line #17
Section:: Inherit
Profile:: + Self: SELF. parent_window :Expanded AREA_MASK

parent_g_expr

.../extra/gui/g_win_out_trans_test.li line #19
Section:: Inherit
Profile:: + Self: SELF. parent_g_expr :Expanded G_EXPR

parent_area

.../extra/gui/clipping/area_mask.li line #14
Section:: Inherit
Profile:: + Self: SELF. parent_area :Expanded AREA

parent_video

.../extra/gui/clipping/area.li line #14
Section:: Inherit
Profile:: - Self: SELF. parent_video : VIDEO
Description:: ABSTRACT_BITMAP := ABSTRACT_BITMAP;

parent_inbox

.../extra/gui/clipping/area.li line #16
Section:: Inherit
Profile:: - Self: SELF. parent_inbox : INBOX

parent_object

.../extra/gui/low_level/g_expr.li line #14
Section:: Inherit
Profile:: - Self: SELF. parent_object : OBJECT

Constructor Detail

create with

.../extra/gui/g_win_out_trans_test.li line #121
Section:: Public
Profile:: - Self: SELF. create t : ABSTRACT_STRING with elt : G_EXPR : SELF

create size

.../extra/gui/clipping/area.li line #291
Section:: Public
Profile:: - Self: SELF. create ( x : INTEGER, y : INTEGER) size ( w : INTEGER, h : INTEGER) : AREA

Detail slot

title_len

.../extra/gui/g_win_out_trans_test.li line #68
Section:: Public
Profile:: + Self: SELF. title_len : INTEGER

title

.../extra/gui/g_win_out_trans_test.li line #70
Section:: Public
Profile:: + Self: SELF. title : ABSTRACT_STRING

stat

.../extra/gui/g_win_out_trans_test.li line #72
Section:: Public
Profile:: + Self: SELF. stat : INTEGER_8

is_open

.../extra/gui/g_win_out_trans_test.li line #74
Section:: Public
Profile:: - Self: SELF. is_open : BOOLEAN

open_by

.../extra/gui/g_win_out_trans_test.li line #76
Section:: Public
Profile:: - Self: SELF. open_by src : G_GROUP

close

.../extra/gui/g_win_out_trans_test.li line #111
Section:: Public
Profile:: - Self: SELF. close

mask

.../extra/gui/clipping/area_mask.li line #18
Section:: Public
Profile:: + Self: SELF. mask : FAST_ARRAY( FAST_ARRAY( UINTEGER_16))

clear_mask

.../extra/gui/clipping/area_mask.li line #20
Section:: Public
Profile:: - Self: SELF. clear_mask

height

.../extra/gui/clipping/area.li line #32
Section:: Public
Profile:: + Self: SELF. height : INTEGER

width

.../extra/gui/clipping/area.li line #33
Section:: Public
Profile:: + Self: SELF. width : INTEGER

clip_x0

.../extra/gui/clipping/area.li line #41
Section:: Public
Profile:: + Self: SELF. clip_x0 : INTEGER

clip_y0

.../extra/gui/clipping/area.li line #42
Section:: Public
Profile:: + Self: SELF. clip_y0 : INTEGER

clip_x1

.../extra/gui/clipping/area.li line #43
Section:: Public
Profile:: + Self: SELF. clip_x1 : INTEGER

clip_y1

.../extra/gui/clipping/area.li line #44
Section:: Public
Profile:: + Self: SELF. clip_y1 : INTEGER

spot_x

.../extra/gui/clipping/area.li line #47
Section:: Public
Profile:: + Self: SELF. spot_x : INTEGER

spot_y

.../extra/gui/clipping/area.li line #48
Section:: Public
Profile:: + Self: SELF. spot_y : INTEGER

parent

.../extra/gui/clipping/area.li line #181
Section:: Public
Profile:: + Self: SELF. parent : AREA
Description:: Englobe window.

child

.../extra/gui/clipping/area.li line #182
Section:: Public
Profile:: + Self: SELF. child : AREA
Description:: First children.

.../extra/gui/clipping/area.li line #183
Section:: Public
Profile:: + Self: SELF. prev : AREA
Description:: Previous window.

.../extra/gui/clipping/area.li line #184
Section:: Public
Profile:: + Self: SELF. next : AREA
Description:: Next window. +-parent---------------------+ | +-self-----------| | +-next---| | | | | +-child--+ | | | | | | | | | | +--------+ | | | | +-prev--------| | | +--| | | +-----------| | | | | +----------------------------+

plan

.../extra/gui/clipping/area.li line #198
Section:: Public
Profile:: + Self: SELF. plan : PLAN

clip

.../extra/gui/clipping/area.li line #199
Section:: Public
Profile:: + Self: SELF. clip : CLIP
Description:: Cash clip zone. Current window absolute position.

x_window

.../extra/gui/clipping/area.li line #202
Section:: Public
Profile:: + Self: SELF. x_window : INTEGER

y_window

.../extra/gui/clipping/area.li line #203
Section:: Public
Profile:: + Self: SELF. y_window : INTEGER

debug_display

.../extra/gui/clipping/area.li line #222
Section:: Public
Profile:: - Self: SELF. debug_display

get_x_window

.../extra/gui/clipping/area.li line #233
Section:: Public
Profile:: - Self: SELF. get_x_window : INTEGER

get_y_window

.../extra/gui/clipping/area.li line #244
Section:: Public
Profile:: - Self: SELF. get_y_window : INTEGER

list_plan

.../extra/gui/clipping/area.li line #546
Section:: AREA
Profile:: - Self: SELF. list_plan : PLAN

list_x

.../extra/gui/clipping/area.li line #547
Section:: AREA
Profile:: - Self: SELF. list_x : LIMIT_X

list_y

.../extra/gui/clipping/area.li line #548
Section:: AREA
Profile:: - Self: SELF. list_y : LIMIT_Y

display_list_x

.../extra/gui/clipping/area.li line #550
Section:: AREA
Profile:: - Self: SELF. display_list_x

last_clip

.../extra/gui/clipping/area.li line #586
Section:: AREA
Profile:: - Self: SELF. last_clip : CLIP

first_clip

.../extra/gui/clipping/area.li line #587
Section:: AREA
Profile:: - Self: SELF. first_clip : CLIP

top_clip

.../extra/gui/clipping/area.li line #588
Section:: AREA
Profile:: - Self: SELF. top_clip : CLIP

debug

.../extra/gui/clipping/area.li line #1015
Section:: AREA
Profile:: - Self: SELF. debug : BOOLEAN

margin_clip_x0

.../extra/gui/clipping/area.li line #1110
Section:: Public
Profile:: - Self: SELF. margin_clip_x0 : INTEGER

margin_clip_y0

.../extra/gui/clipping/area.li line #1111
Section:: Public
Profile:: - Self: SELF. margin_clip_y0 : INTEGER

margin_clip_x1

.../extra/gui/clipping/area.li line #1112
Section:: Public
Profile:: - Self: SELF. margin_clip_x1 : INTEGER

margin_clip_y1

.../extra/gui/clipping/area.li line #1113
Section:: Public
Profile:: - Self: SELF. margin_clip_y1 : INTEGER

redraw to

.../extra/gui/clipping/area.li line #1115
Section:: Public
Profile:: - Self: SELF. redraw ( x0 : INTEGER, y0 : INTEGER) to ( x1 : INTEGER, y1 : INTEGER)

refresh

.../extra/gui/clipping/area.li line #1170
Section:: Public
Profile:: - Self: SELF. refresh

attribute

.../extra/gui/low_level/g_expr.li line #18
Section:: Public
Profile:: + Self: SELF. attribute : UINTEGER_8

fix_width_bit

.../extra/gui/low_level/g_expr.li line #20
Section:: Public
Profile:: - Self: SELF. fix_width_bit : UINTEGER_8

fix_height_bit

.../extra/gui/low_level/g_expr.li line #21
Section:: Public
Profile:: - Self: SELF. fix_height_bit : UINTEGER_8

horizontal_bit

.../extra/gui/low_level/g_expr.li line #23
Section:: Public
Profile:: - Self: SELF. horizontal_bit : UINTEGER_8

vertical_bit

.../extra/gui/low_level/g_expr.li line #24
Section:: Public
Profile:: - Self: SELF. vertical_bit : UINTEGER_8

is_fix_width

.../extra/gui/low_level/g_expr.li line #26
Section:: Public
Profile:: - Self: SELF. is_fix_width : BOOLEAN

is_fix_height

.../extra/gui/low_level/g_expr.li line #27
Section:: Public
Profile:: - Self: SELF. is_fix_height : BOOLEAN

is_horizontal

.../extra/gui/low_level/g_expr.li line #29
Section:: Public
Profile:: - Self: SELF. is_horizontal : BOOLEAN

is_vertical

.../extra/gui/low_level/g_expr.li line #30
Section:: Public
Profile:: - Self: SELF. is_vertical : BOOLEAN

set_attribute_bit

.../extra/gui/low_level/g_expr.li line #32
Section:: Public
Profile:: - Self: SELF. set_attribute_bit flag : UINTEGER_8

fix_width

.../extra/gui/low_level/g_expr.li line #37
Section:: Public
Profile:: - Self: SELF. fix_width : SELF

fix_height

.../extra/gui/low_level/g_expr.li line #43
Section:: Public
Profile:: - Self: SELF. fix_height : SELF

Creation.

make with

.../extra/gui/g_win_out_trans_test.li line #129
Section:: Public
Profile:: - Self: SELF. make t : ABSTRACT_STRING with elt : G_EXPR

Size.

width_min

.../extra/gui/g_win_out_trans_test.li line #143
Section:: Public
Profile:: - Self: SELF. width_min : INTEGER

height_min

.../extra/gui/g_win_out_trans_test.li line #148
Section:: Public
Profile:: - Self: SELF. height_min : INTEGER

Update position.

set_position at size

.../extra/gui/g_win_out_trans_test.li line #157
Section:: Public
Profile:: - Self: SELF. set_position rac : AREA at ( x : INTEGER, y : INTEGER) size ( w : INTEGER, h : INTEGER)

Display.

draw_slave from to

.../extra/gui/g_win_out_trans_test.li line #175
Section:: Public
Profile:: - Self: SELF. draw_slave bmp : ABSTRACT_BITMAP from ( x0 : INTEGER, y0 : INTEGER) to ( x1 : INTEGER, y1 : INTEGER)

********** UPDATE ********

draw to

.../extra/gui/g_win_out_trans_test.li line #184
Section:: Public
Profile:: - Self: SELF. draw ( x0 : INTEGER, y0 : INTEGER) to ( x1 : INTEGER, y1 : INTEGER)

slave_pixel_hard color

.../extra/gui/g_win_out_trans_test.li line #217
Section:: Public
Profile:: - Self: SELF. slave_pixel_hard ( x : INTEGER, y : INTEGER) color col : UINTEGER_32

slave_line_h_hard until color

.../extra/gui/g_win_out_trans_test.li line #234
Section:: Public
Profile:: - Self: SELF. slave_line_h_hard ( x1 : INTEGER, y : INTEGER) until x2 : INTEGER color col : UINTEGER_32

slave_line_h_hard until image offset

.../extra/gui/g_win_out_trans_test.li line #257
Section:: Public
Profile:: - Self: SELF. slave_line_h_hard ( x1 : INTEGER, y : INTEGER) until x2 : INTEGER image line : ABSTRACT_BMP_LINE offset ofs : INTEGER

Event.

receive

.../extra/gui/g_win_out_trans_test.li line #297
Section:: Public
Profile:: - Self: SELF. receive msg : EVENT
Description:: Default.

get_object

.../extra/gui/g_win_out_trans_test.li line #317
Section:: Public
Profile:: - Self: SELF. get_object ( x : INTEGER, y : INTEGER) : AREA

Creation

make from size

.../extra/gui/clipping/area_mask.li line #31
Section:: Public
Profile:: - Self: SELF. make father : AREA from ( x0 : INTEGER, y0 : INTEGER) size ( w : INTEGER, h : INTEGER)

resize

.../extra/gui/clipping/area_mask.li line #40
Section:: Public
Profile:: - Self: SELF. resize ( w : INTEGER, h : INTEGER)
Description:: Resize window.

Master display (Build mask)

pixel_hard color

.../extra/gui/clipping/area_mask.li line #54
Section:: Public
Profile:: - Self: SELF. pixel_hard ( x : INTEGER, y : INTEGER) color col : UINTEGER_32

line_h_hard until color

.../extra/gui/clipping/area_mask.li line #60
Section:: Public
Profile:: - Self: SELF. line_h_hard ( x0 : INTEGER, y0 : INTEGER) until x1 : INTEGER color col : UINTEGER_32

line_h_hard until image offset

.../extra/gui/clipping/area_mask.li line #66
Section:: Public
Profile:: - Self: SELF. line_h_hard ( x0 : INTEGER, y0 : INTEGER) until x1 : INTEGER image line : ABSTRACT_BMP_LINE offset ofs : INTEGER

Slave display (Use Mask)

mask_draw to color

.../extra/gui/clipping/area_mask.li line #169
Section:: Public
Profile:: - Self: SELF. mask_draw ( x0 : INTEGER, y0 : INTEGER) to ( x1 : INTEGER, y1 : INTEGER) color col : UINTEGER_32

Redefine BITMAP.
Size zone.

x_min

.../extra/gui/clipping/area.li line #35
Section:: Public
Profile:: - Self: SELF. x_min : INTEGER

y_min

.../extra/gui/clipping/area.li line #36
Section:: Public
Profile:: - Self: SELF. y_min : INTEGER

x_max

.../extra/gui/clipping/area.li line #37
Section:: Public
Profile:: - Self: SELF. x_max : INTEGER

y_max

.../extra/gui/clipping/area.li line #38
Section:: Public
Profile:: - Self: SELF. y_max : INTEGER

Window links.

set_next

.../extra/gui/clipping/area.li line #205
Section:: Public
Profile:: - Self: SELF. set_next new : AREA

set_prev

.../extra/gui/clipping/area.li line #210
Section:: Public
Profile:: - Self: SELF. set_prev new : AREA

set_child

.../extra/gui/clipping/area.li line #215
Section:: Public
Profile:: - Self: SELF. set_child new : AREA

Delete window

delete

.../extra/gui/clipping/area.li line #305
Section:: Public
Profile:: - Self: SELF. delete

Moving window

update from size

.../extra/gui/clipping/area.li line #335
Section:: Public
Profile:: - Self: SELF. update father : AREA from ( x0 : INTEGER, y0 : INTEGER) size ( w : INTEGER, h : INTEGER)

move

.../extra/gui/clipping/area.li line #345
Section:: Public
Profile:: - Self: SELF. move ( x : INTEGER, y : INTEGER)

set_position

.../extra/gui/clipping/area.li line #383
Section:: Public
Profile:: - Self: SELF. set_position ( x : INTEGER, y : INTEGER)

First window

first

.../extra/gui/clipping/area.li line #432
Section:: Public
Profile:: - Self: SELF. first
Description:: put first plan window.

get_window

.../extra/gui/clipping/area.li line #517
Section:: Public
Profile:: - Self: SELF. get_window ( x : INTEGER, y : INTEGER) : AREA
Description:: Get object pointer by (X,Y).

list_plan={plan1,plan2}
. plan1+---------------Y---------+ | . | | plan2+----Y-----------------+ | | . : | | | . : | | | . : | .....X..........X..............X.......X.....list_x | | . : | | | . : | | +----Y-----------------+ | . | +---------------Y---------+ . list_y

stack_plan

.../extra/gui/clipping/area.li line #584
Section:: AREA
Profile:: - Self: SELF. stack_plan : FAST_ARRAY( PLAN)

| | | top_clip | | | +-----------+ +------------+ +-----------+ +-----------+ | | | | | | | first_clip | ... | last_clip | | NEW | | | | | | | +------------+ +-----------+ +-----------+

add_clip from to

.../extra/gui/clipping/area.li line #600
Section:: AREA
Profile:: - Self: SELF. add_clip win : AREA from ( xmin : INTEGER, ymin : INTEGER) to ( xmax : INTEGER, ymax : INTEGER)

remove_plan

.../extra/gui/clipping/area.li line #639
Section:: AREA
Profile:: - Self: SELF. remove_plan

append_plan

.../extra/gui/clipping/area.li line #655
Section:: AREA
Profile:: - Self: SELF. append_plan

update_plan

.../extra/gui/clipping/area.li line #744
Section:: AREA
Profile:: - Self: SELF. update_plan

creat_clip

.../extra/gui/clipping/area.li line #812
Section:: AREA
Profile:: - Self: SELF. creat_clip

clip_next_child

.../extra/gui/clipping/area.li line #940
Section:: AREA
Profile:: - Self: SELF. clip_next_child

clip_type1

.../extra/gui/clipping/area.li line #951
Section:: AREA
Profile:: - Self: SELF. clip_type1

sub_delete

.../extra/gui/clipping/area.li line #959
Section:: AREA
Profile:: - Self: SELF. sub_delete

sub_move

.../extra/gui/clipping/area.li line #978
Section:: AREA
Profile:: - Self: SELF. sub_move ( x : INTEGER, y : INTEGER)

sub_resize

.../extra/gui/clipping/area.li line #991
Section:: AREA
Profile:: - Self: SELF. sub_resize

get_clip x,y :
[clip] X#####+-------++-------+ | #| || | | #| || | +----#######--++-------+ +---------+#-----------+ | |# | | |####>X(x,y) | | || | +---------++-----------+

get_clip

.../extra/gui/clipping/area.li line #1017
Section:: AREA
Profile:: - Self: SELF. get_clip ( x : INTEGER, y : INTEGER) : CLIP
Description:: Find clip (x,y), begin search is clip.

Dimension.

width_max

.../extra/gui/low_level/g_expr.li line #71
Section:: Public
Profile:: - Self: SELF. width_max : INTEGER

height_max

.../extra/gui/low_level/g_expr.li line #85
Section:: Public
Profile:: - Self: SELF. height_max : INTEGER

Operator position.

Infix '|'

.../extra/gui/low_level/g_expr.li line #103
Section:: Public
Profile:: - Self: SELF ' | ' Right 40 other : G_EXPR : G_EXPR

Infix '/'

.../extra/gui/low_level/g_expr.li line #108
Section:: Public
Profile:: - Self: SELF ' / ' Right 40 other : G_EXPR : G_EXPR

Style...

color_dark

.../extra/gui/low_level/g_expr.li line #132
Section:: Public
Profile:: - Self: SELF. color_dark : UINTEGER_32

color_light

.../extra/gui/low_level/g_expr.li line #133
Section:: Public
Profile:: - Self: SELF. color_light : UINTEGER_32

color_back

.../extra/gui/low_level/g_expr.li line #135
Section:: Public
Profile:: - Self: SELF. color_back : UINTEGER_32

color_back_light

.../extra/gui/low_level/g_expr.li line #136
Section:: Public
Profile:: - Self: SELF. color_back_light : UINTEGER_32

draw_border_in to

.../extra/gui/low_level/g_expr.li line #138
Section:: Public
Profile:: - Self: SELF. draw_border_in ( x0 : INTEGER, y0 : INTEGER) to ( x1 : INTEGER, y1 : INTEGER)

draw_border_out to

.../extra/gui/low_level/g_expr.li line #149
Section:: Public
Profile:: - Self: SELF. draw_border_out ( x0 : INTEGER, y0 : INTEGER) to ( x1 : INTEGER, y1 : INTEGER)