class['a]variable :'a ->object..end
val set : 'a signal
val changed : 'a signal
val mutable x : 'a
method connect : 'a variable_signals
method get : 'a
method set : 'a -> unit
method private equal : 'a -> 'a -> bool
method private real_set : 'a -> unit