123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758 |
- class IUP_TABS
- inherit
- IUP_ZBOX
- rename
- zbox_empty as tabs_empty,
- zbox as tabs
- redefine
- tabs_empty,
- tabs,
- execute_map,
- execute_unmap,
- execute_destroy,
- execute_getfocus,
- execute_killfocus,
- execute_enterwindow,
- execute_leavewindow,
- execute_k_any,
- execute_help,
- execute_tabchange,
- execute_tabchangepos,
- execute_tabclose,
- execute_rightclick,
- execute_focus
- end
- IUP_WIDGET_BGCOLOR
- IUP_WIDGET_FGCOLOR
- IUP_WIDGET_ACTIVE
- IUP_WIDGET_SCREENPOSITION
- IUP_WIDGET_TIP
- IUP_WIDGET_ZORDER
- IUP_WIDGET_VISIBLE
- IUP_WIDGET_FOCUS
- IUP_WIDGET_PROPAGATEFOCUS
- IUP_WIDGET_FLOATING
- create {ANY}
- tabs_empty,
- tabs
- feature {ANY}
- tabs_empty
-
- local
- p, a_tabs: POINTER
- do
- a_tabs := int_tabs_empty (p)
- set_widget(a_tabs)
- end
-
- tabs (col: ARRAY[IUP_WIDGET])
-
- local
- i: INTEGER; arg: ARRAY[POINTER]; s: IUP_WIDGET; a_tabs: POINTER
- do
- i := col.count
- create arg.make_filled(default_pointer, 1, i + 1)
- i := 0
-
- across
- col as ic
- loop
- i := i + 1
- s := ic.item
- arg.put(s.widget, i)
- end
- a_tabs := int_tabs (get_pointer(arg.to_c))
- set_widget(a_tabs)
- end
-
- set_childoffset (horizontal, vertical: INTEGER)
- require
- horizontal >= 0
- vertical >= 0
- local
- offset: STRING
- do
- offset := horizontal.out
- offset.append_string("x")
- offset.append_string(vertical.out)
- iup_open.set_attribute(Current, "CHILDOFFSET", offset)
- end
- get_childoffset: TUPLE[INTEGER, INTEGER]
-
- local
- offset: STRING
- do
- offset := iup_open.get_attribute(Current, "CHILDOFFSET")
- Result := components_of_size(offset)
- end
-
- count: INTEGER
-
- do
- Result := get_child_count
- end
- set_multiline (state: BOOLEAN)
-
-
-
-
- do
- iup_open.set_attribute(Current, "MULTILINE", boolean_to_yesno(state))
- end
- is_multiline: BOOLEAN
-
- local
- str: STRING
- do
- str := iup_open.get_attribute(Current, "MULTILINE")
- Result := yesno_to_boolean(str)
- end
- set_showclose (state: BOOLEAN)
-
-
-
-
- do
- iup_open.set_attribute(Current, "SHOWCLOSE", boolean_to_yesno(state))
- end
- is_showclose: BOOLEAN
-
- local
- str: STRING
- do
- str := iup_open.get_attribute(Current, "SHOWCLOSE")
- Result := yesno_to_boolean(str)
- end
- set_horizontal_tab
-
-
-
-
-
- do
- iup_open.set_attribute(Current, "TABORIENTATION", "HORIZONTAL")
- end
-
- set_vertical_tab
-
-
-
-
-
- do
- iup_open.set_attribute(Current, "TABORIENTATION", "VERTICAL")
- end
- is_horizontal_tab: BOOLEAN
- local
- str: STRING
- do
- str := iup_open.get_attribute(Current, "TABORIENTATION")
- if str.is_equal("HORIZONTAL") then
- Result := True
- else
- Result := False
- end
- end
- is_vertical_tab: BOOLEAN
- local
- str: STRING
- do
- str := iup_open.get_attribute(Current, "TABORIENTATION")
- if str.is_equal("VERTICAL") then
- Result := True
- else
- Result := False
- end
- end
- set_tab_padding (horizontal, vertical: INTEGER)
-
-
-
- require
- horizontal >= 0
- vertical >= 0
- local
- padding: STRING
- do
- padding := horizontal.out
- padding.append_string("x")
- padding.append_string(vertical.out)
- iup_open.set_attribute(Current, "TABPADDING", padding)
- end
- get_tab_padding: TUPLE[INTEGER, INTEGER]
-
- local
- padding: STRING
- do
- padding := iup_open.get_attribute(Current, "TABPADDING")
- Result := components_of_size(padding)
- end
- set_tab_type (type: STRING)
-
-
-
-
-
-
- require
- is_valid_tabtype(type)
- do
- iup_open.set_attribute (Current, "TABTYPE", type)
- end
- get_tab_type: STRING
-
- do
- Result := iup_open.get_attribute (Current, "TABTYPE")
- end
-
- set_tab_n_image (imagename: STRING; n: INTEGER)
-
-
-
-
-
-
- require
- n >= 0
- local
- str: STRING
- do
- str := "TABIMAGE" + n.out
- iup_open.set_attribute (Current, str, imagename)
- end
- get_tab_n_image (n: INTEGER): STRING
-
- require
- n >= 0
- local
- str: STRING
- do
- str := "TABIMAGE" + n.out
- Result := iup_open.get_attribute(Current, str)
- end
- set_tab_n_visible (state: BOOLEAN; n: INTEGER)
-
-
- require
- n >= 0
- do
- iup_open.set_attribute_id (Current, "TABVISIBLE", n, boolean_to_yesno(state))
- end
- is_tab_n_visible (n: INTEGER): BOOLEAN
-
- require
- n >= 0
- local
- str: STRING
- do
- str := iup_open.get_attribute_id(Current, "TABVISIBLE", n)
- Result := yesno_to_boolean(str)
- end
- set_tab_n_title (title: STRING; n: INTEGER)
-
-
-
-
-
-
-
- require
- n >= 0
- do
- iup_open.set_attribute_id (Current, "TABTITLE", n, title)
- end
- get_tab_n_title (n: INTEGER): STRING
-
- require
- n >= 0
- do
- Result := iup_open.get_attribute_id(Current, "TABTITLE", n)
- end
-
-
- set_cb_map (act: detachable FUNCTION[TUPLE[IUP_TABS], STRING])
-
- local
- operation: INTEGER
- do
- cb_map := act
-
- if cb_map /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "MAP_CB", "NONEEDED", operation)
- end
- set_cb_unmap (act: detachable FUNCTION[TUPLE[IUP_TABS], STRING])
-
- local
- operation: INTEGER
- do
- cb_unmap := act
- if cb_unmap /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "UNMAP_CB", "NONEEDED", operation)
- end
- set_cb_destroy (act: detachable FUNCTION[TUPLE[IUP_TABS], STRING])
-
- local
- operation: INTEGER
- do
- cb_destroy := act
- if cb_destroy /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "DESTROY_CB", "NONEEDED", operation)
- end
- set_cb_get_focus (act: detachable FUNCTION[TUPLE[IUP_TABS], STRING])
-
-
-
-
- local
- operation: INTEGER
- do
- cb_getfocus := act
- if cb_getfocus /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "GETFOCUS_CB", "NONEEDED", operation)
- end
- set_cb_kill_focus (act: detachable FUNCTION[TUPLE[IUP_TABS], STRING])
-
-
-
- local
- operation: INTEGER
- do
- cb_killfocus := act
- if cb_killfocus /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "KILLFOCUS_CB", "NONEEDED", operation)
- end
- set_cb_enter_window (act: detachable FUNCTION[TUPLE[IUP_TABS], STRING])
-
- local
- operation: INTEGER
- do
- cb_enterwindow := act
- if cb_enterwindow /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "ENTERWINDOW_CB", "NONEEDED", operation)
- end
- set_cb_leave_window (act: detachable FUNCTION[TUPLE[IUP_TABS], STRING])
-
- local
- operation: INTEGER
- do
- cb_leavewindow := act
- if cb_leavewindow /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "LEAVEWINDOW_CB", "NONEEDED", operation)
- end
- set_cb_k_any (act: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER], STRING])
-
-
-
-
-
-
-
-
-
-
-
- local
- operation: INTEGER
- do
- cb_k_any := act
- if cb_k_any /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "K_ANY", "NONEEDED", operation)
- end
- set_cb_help (act: detachable PROCEDURE[TUPLE[IUP_TABS]])
-
-
-
-
- local
- operation: INTEGER
- do
- cb_help := act
- if cb_help /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "HELP_CB", "NONEEDED", operation)
- end
-
- set_cb_tab_change (act: detachable FUNCTION[TUPLE[IUP_TABS, IUP_WIDGET, IUP_WIDGET], STRING])
-
- local
- operation: INTEGER
- do
- cb_tabchange := act
- if cb_tabchange /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "TABCHANGE_CB", "NONEEDED", operation)
- end
- set_cb_tab_change_position (act: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER, INTEGER], STRING])
-
-
- local
- operation: INTEGER
- do
- cb_tabchangepos := act
- if cb_tabchangepos /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "TABCHANGEPOS_CB", "NONEEDED", operation)
- end
- set_cb_tab_close (act: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER], STRING])
-
-
- local
- operation: INTEGER
- do
- cb_tabclose := act
- if cb_tabclose /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "TABCLOSE_CB", "NONEEDED", operation)
- end
- set_cb_right_click (act: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER], STRING])
-
-
- local
- operation: INTEGER
- do
- cb_rightclick := act
- if cb_rightclick /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "RIGHTCLICK_CB", "NONEEDED", operation)
- end
- set_cb_focus (act: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER], STRING])
-
-
- local
- operation: INTEGER
- do
- cb_focus := act
- if cb_focus /= Void then
- operation := 1
- else
- operation := 0
- end
-
- iup_open.set_callback (Current, "FOCUS_CB", "NONEEDED", operation)
- end
-
- is_valid_tabtype (type: STRING): BOOLEAN
- do
- if type.is_equal("TOP") or
- type.is_equal("BOTTOM") or
- type.is_equal("LEFT") or
- type.is_equal("RIGHT") then
- Result := True
- else
- Result := False
- end
- end
-
- feature {ANY}
-
-
- execute_map: STRING
- do
- if attached cb_map as int_cb then
- Result := int_cb.item([Current])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_unmap: STRING
- do
- if attached cb_unmap as int_cb then
- Result := int_cb.item([Current])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_destroy: STRING
- do
- if attached cb_destroy as int_cb then
- Result := int_cb.item([Current])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_getfocus: STRING
- do
- if attached cb_getfocus as int_cb then
- Result := int_cb.item([Current])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_killfocus: STRING
- do
- if attached cb_killfocus as int_cb then
- Result := int_cb.item([Current])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_enterwindow: STRING
- do
- if attached cb_enterwindow as int_cb then
- Result := int_cb.item([Current])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_leavewindow: STRING
- do
- if attached cb_leavewindow as int_cb then
- Result := int_cb.item([Current])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_k_any (c: INTEGER): STRING
- do
- if attached cb_k_any as int_cb then
- Result := int_cb.item([Current, c])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_help
- do
- if attached cb_help as int_cb then
- int_cb.call([Current])
- end
- end
-
- execute_tabchange (new_tab, old_tab: IUP_WIDGET): STRING
- do
- if attached cb_tabchange as int_cb then
- Result := int_cb.item([Current, new_tab, old_tab])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_tabchangepos (new_pos, old_pos: INTEGER): STRING
- do
- if attached cb_tabchangepos as int_cb then
- Result := int_cb.item([Current, new_pos, old_pos])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_tabclose (pos: INTEGER): STRING
- do
- if attached cb_tabclose as int_cb then
- Result := int_cb.item([Current, pos])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_rightclick (pos: INTEGER): STRING
- do
- if attached cb_rightclick as int_cb then
- Result := int_cb.item([Current, pos])
- else
- Result := "IUP_DEFAULT"
- end
- end
- execute_focus (focus: INTEGER): STRING
- do
- if attached cb_focus as int_cb then
- Result := int_cb.item([Current, focus])
- else
- Result := "IUP_DEFAULT"
- end
- end
- feature {NONE}
-
-
- cb_map: detachable FUNCTION[TUPLE[IUP_TABS], STRING]
- cb_unmap: detachable FUNCTION[TUPLE[IUP_TABS], STRING]
- cb_destroy: detachable FUNCTION[TUPLE[IUP_TABS], STRING]
- cb_getfocus: detachable FUNCTION[TUPLE[IUP_TABS], STRING]
- cb_killfocus: detachable FUNCTION[TUPLE[IUP_TABS], STRING]
- cb_enterwindow: detachable FUNCTION[TUPLE[IUP_TABS], STRING]
- cb_leavewindow: detachable FUNCTION[TUPLE[IUP_TABS], STRING]
- cb_k_any: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER], STRING]
- cb_help: detachable PROCEDURE[TUPLE[IUP_TABS]]
- cb_action: detachable FUNCTION[TUPLE[IUP_TABS], STRING]
-
- cb_tabchange: detachable FUNCTION[TUPLE[IUP_TABS, IUP_WIDGET, IUP_WIDGET], STRING]
- cb_tabchangepos: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER, INTEGER], STRING]
- cb_tabclose: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER], STRING]
- cb_rightclick: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER], STRING]
- cb_focus: detachable FUNCTION[TUPLE[IUP_TABS, INTEGER], STRING]
-
-
- int_tabs_empty (arguments: POINTER): POINTER
- external
- "C inline use %"eiffel-iup.h%""
- alias
- "return IupTabs ($arguments);"
- end
-
- int_tabs (arguments: POINTER): POINTER
- external
- "C inline use %"eiffel-iup.h%""
- alias
- "return IupTabsv ($arguments);"
- end
- end
|