SCClassLibrary/QtCollider/QDialog.sc

   1 QFileDialog : QObject {
   2   *qtClass { ^'QcFileDialog' }
   3
   4   *new { arg okFunc, cancelFunc, fileMode, acceptMode, stripResult = false;
   5
   6     var me = super.new( [fileMode, acceptMode] );
   7
   8     if( okFunc.notNil ) {
   9       me.connectFunction( 'accepted(VariantList)', {
  10         |me, result|
  11         if( stripResult )
  12           { okFunc.performList(\value, result) }
  13           { okFunc.value(result) }
  14       });
  15     };
  16
  17     if( cancelFunc.notNil ) {
  18       me.connectFunction( 'rejected()', { cancelFunc.value() } );
  19     };
  20
  21     me.invokeMethod('show', synchronous:false);
  22
  23     ^me;
  24   }
  25 }
  26
  27 QDialog {
  28   *implementsClass {^'Dialog'}
  29
  30   *getPaths { arg okFunc, cancelFunc, allowsMultiple=true;
  31     var fileMode;
  32     if( allowsMultiple ) { fileMode = 3 } { fileMode = 1 };
  33     ^QFileDialog.new( okFunc, cancelFunc, fileMode, 0 );
  34   }
  35
  36   *openPanel { arg okFunc, cancelFunc, multipleSelection=false;
  37     var fileMode;
  38     if( multipleSelection ) { fileMode = 3 } { fileMode = 1 };
  39     ^QFileDialog.new( okFunc, cancelFunc, fileMode, 0, stripResult:multipleSelection.not );
  40   }
  41
  42   *savePanel { arg okFunc, cancelFunc;
  43     ^QFileDialog.new( okFunc, cancelFunc, 0, 1, stripResult:true );
  44   }
  45 }