You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacFrameworks/Dictionary Services
Class Window1 Inherits Window
Control EditField1 Inherits TextField
ControlInstance EditField1 Inherits TextField
End Control
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action()
if DictionaryServiceMBS.GetTermRangeInString(EditField1.text,EditField1.SelStart) then
EditField1.SelStart=DictionaryServiceMBS.RangePosition
EditField1.SelLength=DictionaryServiceMBS.RangeLength
end if
End EventHandler
End Control
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control PushButton2 Inherits PushButton
ControlInstance PushButton2 Inherits PushButton
EventHandler Sub Action()
StaticText2.text=DictionaryServiceMBS.TextDefinition(EditField1.text,EditField1.SelStart,EditField1.SelLength)
End EventHandler
End Control
Control StaticText2 Inherits Label
ControlInstance StaticText2 Inherits Label
End Control
Control PushButton3 Inherits PushButton
ControlInstance PushButton3 Inherits PushButton
EventHandler Sub Action()
call DictionaryServiceMBS.Show(EditField1.text,EditField1.SelStart,EditField1.SelLength, me.left + self.left, me.top + self.top)
End EventHandler
End Control
End Class
MenuBar MenuBar1
MenuItem UntitledMenu1 = ""
MenuItem FileMenu = "&File"
MenuItem FileQuit = "Quit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class