requesters.monkey2 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859
  1. Namespace std.requesters
  2. #If __DESKTOP_TARGET__
  3. #Import "native/requesters.h"
  4. #If __TARGET__="macos"
  5. #Import "native/requesters.mm"
  6. #Else
  7. #Import "native/requesters.cpp"
  8. #if __TARGET__="windows"
  9. #Import "<libole32.a>"
  10. #Import "<libComdlg32.a>"
  11. #endif
  12. #endif
  13. Extern
  14. Function Notify:Void( title:String,text:String,serious:Bool=False )="bbRequesters::Notify"
  15. Function Confirm:Bool( title:String,text:String,serious:Bool=False )="bbRequesters::Confirm"
  16. Function Proceed:Int( title:String,text:String,serious:Bool=False )="bbRequesters::Proceed"
  17. Function RequestFile:String( title:String,filter:String="",save:Bool=False,file:String="" )="bbRequesters::RequestFile"
  18. Function RequestDir:String( title:String,dir:String="" )="bbRequesters::RequestDir"
  19. Function OpenUrl( url:String )="bbRequesters::OpenUrl"
  20. #else
  21. Function Notify:Void( title:String,text:String,serious:Bool=False )
  22. End
  23. Function Confirm:Bool( title:String,text:String,serious:Bool=False )
  24. Return False
  25. End
  26. Function RequestFile:String( title:String,filter:String="",save:Bool=False,file:String="" )
  27. Return ""
  28. End
  29. Function RequestDir:String( title:String,dir:String="" )
  30. Return ""
  31. End
  32. Function OpenUrl( url:String )
  33. End
  34. #endif