Interested in a training?
Contact us for a trainings and events or meet us at Real World in Orlando, Florida.

MBS Real Studio Plugin Tutorial Videos

AppleScriptDecompile Source

Note: The function DesktopFolder is deprecated in Real Studio. You can replace it with SpecialFolder.desktop.

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = E&xit
  Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  
  // Event implementations
  Sub Open()
    dim f as FolderItem
    dim b as BinaryStream
    dim s as string
    
    f=DesktopFolder.Child("test.scpt")
    
    b=F.OpenAsBinaryFile(false)
    s=B.Read(b.Length)
    
    dim a as new AppleScriptMBS
    
    a.Binary=s
    
    'EditField1.text=a.Source
    
    EditField1.SetTextAndStyle a.Source, a.SourceTextStyle
    
  End Sub
End Class

All movies

Loading


Links
MBS Realbasic Plugins - Pfarrgemeinde Ministranten Nickenich