eiffel-iup/examples/multibox.e

class MULTIBOX
-- This example show how use a multibox. 

insert
	IUP_INTERFACE

create {ANY}
   make

feature {ANY}

   make
		local
			gui: IUP
			mb: IUP_MULTI_BOX
			b1, b2, b3, b4, b5: IUP_BUTTON
			w: IUP_DIALOG
			i: STRING
		do
			gui := iup_open

			create b1.button("Button 1")
			create b2.button("Button 2")
			b2.set_line_break(True)
			create b3.button("Button 3")
			create b4.button("Button 4")
			b4.set_line_break(True)
			create b5.button("Button 5")

			-- The multibox
			create mb.multi_box({ARRAY[IUP_WIDGET] 1, << b1, b2, b3, b4, b5 >>})
			mb.set_horizontal_orientation

			-- Create the window.
	      create w.dialog(mb)
			w.set_title("A MultiBox")
			w.set_size(100, 70)
			i := w.show

			gui.main_loop
			gui.close
		end

end