(* $Id$ *)

open Gtk.Tags
open Common

class virtual vprop :
  name:string ->		(* property's name *)
  init:string ->		(* default value *)
  set:('a -> bool) ->
  object
    val name : string
    val mutable s : string
    method code : string	(* encoded value *)
    method get : string
    method modified : bool
    method name : string
    method private virtual parse : string -> 'a
    method virtual range : range
    method save_code : string
    method set : string -> unit
  end

class prop_int :
  name:string -> init:string -> set:(int -> bool) -> prop

class prop_float :
  name:string ->
  init:string -> min:float -> max:float -> set:(float -> bool) -> prop

class prop_string :
  name:string -> init:string -> set:(string -> bool) -> prop

class prop_bool :
  name:string -> init:string -> set:(bool -> bool) -> prop
(*
class prop_variant :
  values:(string * 'a) list ->
  name:string -> init:string -> set:('a -> bool) -> prop
*)
class prop_shadow :
  name:string -> init:string -> set:(shadow_type -> bool) -> prop

class prop_policy :
  name:string -> init:string -> set:(policy_type -> bool) -> prop

class prop_orientation :
  name:string ->
  init:string -> set:(Gtk.Tags.orientation -> bool) -> prop

class prop_toolbar_style :
  name:string ->
  init:string -> set:(Gtk.Tags.toolbar_style -> bool) -> prop

class prop_toolbar_space_style :
  name:string -> init:string -> set:([ `EMPTY | `LINE] -> bool) -> prop

class prop_relief_style :
  name:string ->
  init:string -> set:(Gtk.Tags.relief_style -> bool) -> prop

class prop_position :
  name:string ->
  init:string -> set:(Gtk.Tags.position -> bool) -> prop

class prop_combo_use_arrows :
  name:string ->
  init:string -> set:([ `NEVER | `DEFAULT | `ALWAYS] -> bool) -> prop

class prop_spin_button_update_policy :
  name:string ->
  init:string -> set:(Gtk.Tags.spin_button_update_policy -> bool) -> prop

class prop_button_box_style :
  name:string ->
  init:string -> set:(Gtk.Tags.button_box_style -> bool) -> prop

class prop_update_type :
  name:string ->
  init:string -> set:(Gtk.Tags.update_type -> bool) -> prop

class prop_enum_dyn :
  values:(unit -> string list) -> name:string ->
  init:string -> set:(unit -> bool) -> prop

class prop_adjustment :
  name:string -> init:string ->
    set:(float * float * float * float * float -> bool) -> prop

class prop_clist_titles :
  name:string -> init:string ->
    set:(string list -> bool) -> prop

class prop_file :
  name:string -> init:string -> set:(string -> bool) -> prop