OpenWindow(0,0,0,300,330,"Отмена",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)  
  CreateGadgetList(WindowID(0))  
  EG=EditorGadget(0,5,5,290,290)  
  ButtonGadget(2,100,300,100,20,"Undo")  
  ButtonGadget(3,200,300,100,20,"Redo")  
Repeat  
  Select WaitWindowEvent()  
  Case #PB_Event_CloseWindow: End  
  Case #PB_Event_Gadget  
  Select EventGadget()  
  Case 2  
  SendMessage_(EG, #EM_UNDO, 0, 0)  
  Case 3  
  SendMessage_(EG, #EM_REDO, 0, 0)  
  EndSelect  
  EndSelect  
ForEver