123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142 |
- class IUP_USER
- inherit
- IUP_WIDGET
- rename
- refresh as clear_attributes
- redefine
- clear_attributes
- end
- create {ANY}
- user
- feature {ANY}
- user
- local
- a_user: POINTER
- do
- a_user := int_user
- set_widget(a_user)
- end
-
- clear_attributes
-
-
- do
- iup_open.set_attribute(Current, "CLEARATTRIBUTES", "Yes")
- end
-
-
- append (new_child: IUP_WIDGET): detachable IUP_WIDGET
-
-
-
-
- do
- Result := iup_open.iup_append(Current, new_child)
- end
- insert (ref_child: IUP_WIDGET; new_child: IUP_WIDGET): detachable IUP_WIDGET
-
-
-
-
- do
- Result := iup_open.iup_insert(Current, ref_child, new_child)
- end
- get_child (pos: INTEGER): detachable IUP_WIDGET
-
-
- do
- Result := iup_open.iup_get_child(Current, pos)
- end
- get_child_pos (child: IUP_WIDGET): INTEGER
-
-
-
- do
- Result := iup_open.iup_get_child_pos(Current, child)
- end
- get_child_count: INTEGER
-
- do
- Result := iup_open.iup_get_child_count(Current)
- end
- get_next_child (child: IUP_WIDGET): detachable IUP_WIDGET
-
-
- do
- Result := iup_open.iup_get_next_child(Current, child)
- end
- detach
-
- do
- iup_open.iup_detach(Current)
- end
-
- get_parent: detachable IUP_WIDGET
-
- do
- Result := iup_open.iup_get_parent(Current)
- end
- get_brother: detachable IUP_WIDGET
-
-
-
- do
- Result := iup_open.iup_get_brother(Current)
- end
- feature {NONE}
-
-
- int_user: POINTER
- external
- "C inline use %"eiffel-iup.h%""
- alias
- "return IupUser();"
- end
- end
|