;- Forcer le retour à la ligne pour un EditorGadget

; Une petite fenêtre
If OpenWindow(0, 0, 0, 200, 200, 13565952, "lol") And CreateGadgetList(WindowID(0))

  ; un editorgadget qui prand tout...
  EditorGadget(0, 0, 0, 200, 200)
  ; Le Ctrl+R pour activer/désactiver le retour à la ligne automatique
  AddKeyboardShortcut(0, #PB_Shortcut_Control|#PB_Shortcut_R, 1)
  Repeat
  
    Select WaitWindowEvent()
      Case #PB_EventMenu
        Select EventMenuID()
          Case 1
            SendMessage_(GadgetID(0), #EM_SetTargetdevice, 0, State)
            ; Si state est 0, le retour à la ligne est activé
            ; si égal à 1, désactivé.
            ; Condition pour que sa valeure change
            If state = 0
              state = 1
            Else
              state = 0
            EndIf
          EndSelect
      
      Case #PB_EventCloseWindow
        End
    EndSelect
    Delay(20)
    
  ForEver
  
EndIf
End