My code in a cross platform project looks something alike:
Code: Select all
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Linux
gtk_text_view_set_wrap_mode_(GadgetID(#EditorGadget), #GTK_WRAP_WORD)
CompilerCase #PB_OS_MacOS
ImportC ""
GetControlProperty(Control, PropertyCreator, PropertyTag, BufferSize, *ActualSize, *PropertyBuffer)
TXNSetTXNObjectControls(TXNObject, ClearAll, ControlCount, ControlTags, ControlData)
EndImport
Define TXNObject.L
Dim ControlTag.L(0)
Dim ControlData.L(0)
ControlTag(0) = 'wwrs' ; kTXNWordWrapStateTag
ControlData(0) = 0 ; kTXNAutoWrap
If GetControlProperty(GadgetID(#EditorGadget), 'PURE', 'TXOB', 4, 0, @TXNObject) = 0
TXNSetTXNObjectControls(TXNObject, #False, 1, @ControlTag(0), @ControlData(0))
EndIf
CompilerCase #PB_OS_Windows
SendMessage_(GadgetID(#EditorGadget), #EM_SETTARGETDEVICE, 0, 0)
CompilerEndSelect