123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173 |
- deferred class IUP_WIDGET_CHILD
- inherit
- IUP_WIDGET_INTERNALS
-
- feature {ANY}
-
- set_cx (cx: INTEGER)
-
- require
- non_negative: cx >= 0
- do
- iup_open.set_attribute(Current, "CX", cx.out)
- end
- get_cx: INTEGER
-
- local
- cx: STRING
- do
- cx := iup_open.get_attribute(Current, "CX")
- Result := cx.to_integer
- end
- set_cy (cy: INTEGER)
-
- require
- non_negative: cy >= 0
- do
- iup_open.set_attribute(Current, "CY", cy.out)
- end
- get_cy: INTEGER
-
- local
- cy: STRING
- do
- cy := iup_open.get_attribute(Current, "CY")
- Result := cy.to_integer
- end
- set_expand_weight (value: INTEGER)
-
-
- do
- iup_open.set_attribute(Current, "EXPANDWEIGHT", value.out)
- end
- get_expand_weight: INTEGER
-
- local
- str: STRING
- do
- str := iup_open.get_attribute(Current, "EXPANDWEIGHT")
- Result := str.to_integer
- end
- set_tab_title (value: STRING)
-
-
-
- do
- iup_open.set_attribute(Current, "TABTITLE", value)
- end
- get_tab_title: STRING
-
- do
- Result := iup_open.get_attribute(Current, "TABTITLE")
- end
- set_tab_image (value: STRING)
-
-
-
- do
- iup_open.set_attribute(Current, "TABIMAGE", value)
- end
- get_tab_image: STRING
-
- do
- Result := iup_open.get_attribute(Current, "TABIMAGE")
- end
-
- detach
-
- do
- iup_open.iup_detach(Current)
- end
-
- get_parent: detachable IUP_CONTAINER
-
- do
- if attached {IUP_CONTAINER} iup_open.iup_get_parent(Current) as pr then
- Result := pr
- end
- end
- get_brother: detachable IUP_WIDGET
-
-
-
- do
- Result := iup_open.iup_get_brother(Current)
- end
- get_dialog: detachable IUP_DIALOG
-
-
-
- do
- if attached {IUP_DIALOG} iup_open.iup_get_dialog(Current) as dlg then
- Result := dlg
- end
- end
- set_normalizer_group (name: STRING)
-
-
-
- do
- iup_open.set_attribute(Current, "NORMALIZERGROUP", name)
- end
-
- set_line_break (state: BOOLEAN)
-
- do
- if state then
- iup_open.set_attribute(Current, "LINEBREAK", "YES")
- else
- iup_open.set_attribute_null(Current, "LINEBREAK")
- end
- end
- set_column_break (state: BOOLEAN)
-
- do
- if state then
- iup_open.set_attribute(Current, "COLUMNBREAK", "YES")
- else
- iup_open.set_attribute_null(Current, "COLUMNBREAK")
- end
- end
-
- end
|