; Autor : Nico
; Date : 02/02/2007

Enumeration
  #MainForm
EndEnumeration

Enumeration
  #Edit
  #Edit2
EndEnumeration

Enumeration
  #ID_CTRL_V
EndEnumeration

hWnd = OpenWindow(#MainForm, 0, 0, 430, 250, "SousClassement", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
If hWnd
  If CreateGadgetList(WindowID(#MainForm))
     EditorGadget(#Edit, 10, 10, 200, 200)
     EditorGadget(#Edit2, 220, 10, 200, 200)
     StringGadget(10, 10, 220, 400, 20, "Copier ce texte et essayer de le coller dans les deux éditeurs")
  EndIf
EndIf

AddKeyboardShortcut(#MainForm, #PB_Shortcut_Control|#PB_Shortcut_V, #ID_CTRL_V)

Repeat
  EventID = WaitWindowEvent()
  Select EventID
    Case #PB_Event_Gadget
        Select EventGadget()

        EndSelect
       
    Case #PB_Event_Menu
        Select EventMenu()
            Case #ID_CTRL_V
            Debug "coller"
            If GetActiveGadget()=#Edit2
                  SendMessage_(GadgetID(#Edit2), #WM_PASTE, 0, 0)
            EndIf
        EndSelect
           
     
    Case #PB_Event_CloseWindow
        Quit = #True
  EndSelect
Until Quit = #True