/src/wrappers/gobject/examples/g_value_example.e

 1indexing
 2	copyright: "(C) 2005 Paolo Redaelli "
 3	license: "LGPL v2 or later"
 4	date: "$Date:$"
 5	revision "$REvision:$"
 6
 7class G_VALUE_EXAMPLE
 8insert
 9	G_TYPE_EXTERNALS
10	G_PARAM_FLAGS
11creation make
12feature make is
13		do
14			g_type_init
15			create bool.from_boolean (True)
16			create int.from_integer (-12)
17			create uint.from_natural (23)
18			create real.from_real (23.53)
19			create string.from_string ("Foo")
20			create int_param.make_integer ("int-foo", "integer parameter", "an integer parameter",
21													 -5,12,3, g_param_readable)
22			check
23				correct_bool: bool.is_boolean
24				correct_int: int.is_integer
25				correct_uint: uint.is_natural
26				correct_real: real.is_real
27				correct_string: string.is_string
28			end
29			print ("Bool is "+bool.boolean.to_string+"%N") 
30			print ("int is "+int.integer.to_string+"%N")
31			print ("uint is "+uint.natural.to_string+"%N")
32			print ("real is "+real.real.to_string+"%N")
33			print ("string is '"+string.string+"'%N")
34			print (int_param.name + " has default " + int_param.default_integer.out + "%N")
35		end
36
37feature -- generic values
38	bool, int, uint, real, string: G_VALUE
39	int_param: G_PARAM_SPEC
40end
41