# gui/interface/SwitchBox.tcl

    @interface SwitchBox : Box {
      {
        fieldValueList imageOff imageOn
      }
      - list ;
      - list: aFieldValueList ;

      - valueOf: anItem ;
      - valueOf: anItem to: boolean ;

      - switchOn: anItem ;
      - switchOff: anItem ;
      - toggle: anItem ;

      - onChange: aCallback ;
      - onChange ;

      - add: anItem ;
      - add: anItem withValue: boolean ;

      - remove: anItem ;
      - contains: anItem ;

      - clear ;
      - sort ;

      - loadFromFile: aFile ;
    }