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