/src/wrappers/gtk/library/fixed_slider_lenght_property.e

 1indexing
 2	description: "The `fixed-slider-length' style property."
 3	copyright: "[
 4					Copyright (C) 2006 Paolo Redaelli, GTK+ team
 5					
 6					This library is free software; you can redistribute it and/or
 7					modify it under the terms of the GNU Lesser General Public License
 8					as published by the Free Software Foundation; either version 2.1 of
 9					the License, or (at your option) any later version.
10					
11					This library is distributed in the hope that it will be useful, but
12					WITHOUT ANY WARRANTY; without even the implied warranty of
13					MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14					Lesser General Public License for more details.
15
16					You should have received a copy of the GNU Lesser General Public
17					License along with this library; if not, write to the Free Software
18					Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
19					02110-1301 USA
20			]"
21
22deferred class FIXED_SLIDER_LENGHT_PROPERTY
23
24inherit GTK_OBJECT -- WRAPPER
25feature -- TODO: The "fixed-slider-length" style property
26
27	is_slider_length_fixed: BOOLEAN is
28			-- Don't change slider size, just lock it to the minimum
29			-- length.  Default value: False
30		do
31			Result := boolean_property_from_pspec (fixed_slider_lenght_pspec)
32		end
33
34feature {} -- Implementation
35	fixed_slider_lenght_property_property_name: STRING is "fixed-slider-length"
36
37	fixed_slider_lenght_pspec: G_PARAM_SPEC is
38		require has_property (fixed_slider_lenght_property_property_name)
39		once
40			create Result.from_external_pointer
41			(g_object_class_find_property
42			 (g_object_get_class(handle),
43			  fixed_slider_lenght_property_property_name.to_external))
44		end
45end -- class FIXED_SLIDER_LENGHT_PROPERTY