/src/wrappers/gtk/library/fixed_slider_lenght_property.e
Specman e | 45 lines | 35 code | 8 blank | 2 comment | 2 complexity | 667674ff4bb0fda58b4fac52d18053db MD5 | raw file
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