Monkeybread Realbasic plugin - Example: /QuickTime/QT Version via Gestalt

Platforms to show: All Mac Windows Linux Cross-Platform

/QuickTime/QT Version via Gestalt
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /QuickTime/QT Version via Gestalt
This example is the version from Mon, 13th Mar 2005.
Notes: Last modified: Mon, 13th Mar 2005

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  ControlInstance
    Sub MouseEnter() Handles Event
      
    End Sub
    Sub Open() Handles Event
      dim i as integer
      dim v1,v2,v3,v4 as integer
      dim version1,version2,version3 as integer
      dim release as string
      
      if GestaltMBS("qtim",i) then
        
        v4=i
        v3=v4\256
        v2=v3\256
        v1=v2\256
        
        v1=v1 mod 256
        v2=v2 mod 256
        v3=v3 mod 256
        
        version1=v1
        version2=v2\16
        version3=v2 mod 16
        
        v3=BitwiseAnd(v3,&HE0) // only the bits we need, &H80+&H40+&H20
        
        select case v3
        case &H80
          release="Final"
        case &H60
          release="Beta"
        case &H40
          release="Alpha"
        else
          release="Development" // &H20
          // 0 for undefined
        end Select
        
        me.text="QuickTime "+str(version1)+"."+str(version2)+"."+str(version3)+" "+release
      else
        me.text="no QuickTime"
      end if
    End Sub
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
    Sub Open() Handles Event
      dim i as integer
      
      if system.gestalt("qtim",i) then
        me.text=hex(i)
      else
        me.text="error"
      end if
    End Sub
  End ControlInstance
  ControlInstance
    Sub Open() Handles Event
      dim i as integer
      
      if GestaltMBS("qtim",i) then
        me.text=hex(i)
      else
        me.text="error"
      end if
    End Sub
  End ControlInstance
  
  // Event implementations
  Sub Open()
    
  End Sub
End Class

Class App
Inherits Application
End Class