Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MBS Xojo Plugin Tutorial Videos

AppleScriptDecompile Source

Note: The function DesktopFolder is deprecated in Xojo. 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




Links
MBS Xojo Plugins