Strict

Type TSystemDriver

   Method Poll() Abstract
   Method Wait() Abstract
   Method MilliSecs() Abstract
   Method Delay( millis ) Abstract
   
   Method GetChar() Abstract
   Method KeyHit( keycode ) Abstract
   Method KeyDown( keycode ) Abstract
   Method FlushKeys() Abstract
   
   Method MouseLocation( axis ) Abstract
   Method MoveMouse(x,y) Abstract

 ' Folgende Zeilen sind zu übernehmen
   Method Notify( text$,serious ) Abstract
   Method Confirm( text$,serious ) Abstract
   Method Proceed( text$,serious ) Abstract
   Method RequestFile$( text$,exts$,save,file$ ) Abstract
   Method RequestDir$( text$,path$ ) Abstract

End Type

Global Driver:TSystemDriver

Strict

Import "driver.bmx"
Import "system.linux.c"

Import Pub.StdC

Extern

Function bbSystemStartup()
Function bbSystemPoll()
Function bbSystemWait()
Function bbSystemMilliSecs()
Function bbSystemDelay( millis )

Function bbSystemKeyHit( key )
Function bbSystemKeyDown( key )
Function bbSystemGetChar()
Function bbSystemFlushKeys()

Function bbSystemMouseLocation( axis )
Function bbSystemMoveMouse( x,y )

End Extern

Type TLinuxSystemDriver Extends TSystemDriver

   Method New()
      bbSystemStartup
   End Method

   Method Poll()
      bbSystemPoll()
   End Method
   
   Method Wait()
      bbSystemWait()
   End Method

   Method MilliSecs()
      Return bbSystemMilliSecs()
   End Method

   Method Delay( millis )
      bbSystemDelay( millis * 1000 )
   End Method

   Method KeyHit( keycode )
      Return bbSystemKeyHit( keycode )
   End Method

   Method KeyDown( keycode )
      Return bbSystemKeyDown( keycode )
   End Method
   
   Method GetChar()
      Return bbSystemGetChar()
   End Method

   Method FlushKeys()
      bbSystemFlushKeys
   End Method

   Method MouseLocation( axis )
      Return bbSystemMouseLocation( axis )
   End Method
   
   Method MoveMouse( x,y )
      bbSystemMoveMouse x,y
   End Method
   
   ' BETA TEST ################################################## with Xdialog
   Method Notify( text$,serious )
      system_("Xdialog --msgbox ~q"+ text$ +"~q 0  0")
   End Method
   
   Method Confirm( text$,serious )
      Return Not( system_("Xdialog --yesno ~q"+ text$ +"~q 0  0") )
   End Method

   ' geht noch nicht 100%
   Method Proceed( text$,serious )
      Return system_("Xdialog --yesno ~q"+ text$ +"~q 0  0")
   End Method

   Method RequestFile$( text$="",exts$="",save=0,file$="" )
      Return system_("Xdialog --fselect ~q"+ file$ +"~q 0 0")
   End Method

   Method RequestDir$( text$="",path$="" )
      Return system_("Xdialog --dselect ~q"+ path$ +"~q 0 0")
   End Method

End Type