123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163 |
- class IUP_ANIMATED_LABEL
- inherit
- IUP_LABEL
- rename
- label_empty as animated_label_empty,
- label as animated_label_with_title
- redefine
- animated_label_empty,
- animated_label_with_title
- end
- create {ANY}
- animated_label_empty,
- animated_label,
- animated_label_with_title
- feature {ANY}
- animated_label_empty
-
- local
- a_animated_label, p: POINTER
- do
- a_animated_label := int_animated_label(p)
- set_widget(a_animated_label)
- end
- animated_label_with_title (title: STRING)
-
- do
- animated_label_empty
- set_title (title)
- end
- animated_label (animation: IUP_USER)
-
-
-
- local
- a_animated_label: POINTER
- do
- a_animated_label := int_animated_label(animation.widget)
- set_widget(a_animated_label)
- end
-
- start
-
- do
- iup_open.set_attribute(Current, "START", "Yes")
- end
- stop
-
- do
- iup_open.set_attribute(Current, "STOP", "Yes")
- end
-
- set_stop_when_hidden (state: BOOLEAN)
-
-
- do
- iup_open.set_attribute(Current, "STOPWHENHIDDEN", boolean_to_yesno(state))
- end
-
- is_running: BOOLEAN
-
- local
- str: STRING
- do
- str := iup_open.get_attribute(Current, "RUNNING")
- Result := yesno_to_boolean(str)
- end
- set_frame_time (time: REAL_32)
-
-
-
- do
- iup_open.set_attribute(Current, "FRAMETIME", time.out)
- end
- get_frame_count: INTEGER
-
- local
- str: STRING
- do
- str := iup_open.get_attribute(Current, "FRAMECOUNT")
- if str.is_integer then
- Result := str.to_integer
- end
- end
- set_animation (name: STRING)
-
-
-
- do
- iup_open.set_attribute(Current, "ANIMATION", name)
- end
- set_animation_widget (wgt: IUP_USER)
-
- do
- iup_open.set_attribute_widget(Current, "ANIMATION_HANDLE", wgt)
- end
-
- feature {NONE}
-
-
- int_animated_label (animation: POINTER): POINTER
- external
- "C inline use %"eiffel-iup.h%""
- alias
- "return IupAnimatedLabel ($animation);"
- end
- end
|