123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111 |
- deferred class IUP_WIDGET_FOCUS
- inherit
- IUP_WIDGET_INTERNALS
-
- feature {ANY}
- set_focus: detachable IUP_WIDGET
-
-
-
-
-
- local
- p: POINTER
- do
- p := int_set_focus(widget)
- if p /= default_pointer then
- Result := iup_open.get_widget_for_object(p)
- end
- end
- next_field: detachable IUP_WIDGET
-
-
-
-
-
-
-
-
-
-
-
- local
- p: POINTER
- do
- p := int_next_field(widget)
- if p /= default_pointer then
- Result := iup_open.get_widget_for_object(p)
- end
- end
- previous_field: detachable IUP_WIDGET
-
-
-
-
-
- local
- p: POINTER
- do
- p := int_previous_field(widget)
- if p /= default_pointer then
- Result := iup_open.get_widget_for_object(p)
- end
- end
- feature {NONE}
-
- int_set_focus (wgt: POINTER): POINTER
- external
- "C inline use %"eiffel-iup.h%""
- alias
- "return IupSetFocus ($wgt);"
- end
- int_next_field (wgt: POINTER): POINTER
- external
- "C inline use %"eiffel-iup.h%""
- alias
- "return IupNextField ($wgt);"
- end
- int_previous_field (wgt: POINTER): POINTER
- external
- "C inline use %"eiffel-iup.h%""
- alias
- "return IupPreviousField ($wgt);"
- end
- end
|