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   *getPaths { arg okFunc, cancelFunc, allowsMultiple=true;
  29     var fileMode;
  30     if( allowsMultiple ) { fileMode = 3 } { fileMode = 1 };
  31     ^QFileDialog.new( okFunc, cancelFunc, fileMode, 0 );
  32   }
  33
  34   *openPanel { arg okFunc, cancelFunc, multipleSelection=false;
  35     var fileMode;
  36     if( multipleSelection ) { fileMode = 3 } { fileMode = 1 };
  37     ^QFileDialog.new( okFunc, cancelFunc, fileMode, 0, stripResult:true );
  38   }
  39
  40   *savePanel { arg okFunc, cancelFunc;
  41     ^QFileDialog.new( okFunc, cancelFunc, 0, 1, stripResult:true );
  42   }
  43 }