form1=CREATEOBJECT('form1')
form1.SHOW(1)
DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "Form1"
Name = "Form1"


ADD OBJECT i_text1 AS i_text WITH ;
Height = 36, ;
Left = 60, ;
Top = 12, ;
Width = 156, ;
Name = "I_text1"


ADD OBJECT i_text2 AS i_text WITH ;
Height = 36, ;
Left = 60, ;
Top = 60, ;
Width = 156, ;
Name = "I_text2"

PROCEDURE i_text2.Init
DEFINE MENU MainMenu BAR
ON KEY LABEL ctrl+c SYS(1500, '_MED_COPY', '_MEDIT')
ON KEY LABEL ctrl+v SYS(1500, '_MED_paste', '_MEDIT')
ON KEY LABEL ctrl+r SYS(1500, '_MED_redo', '_MEDIT')
ON KEY LABEL ctrl+x SYS(1500, '_MED_cut', '_MEDIT')
ON KEY LABEL ctrl+z SYS(1500, '_MED_undo', '_MEDIT')
ENDPROC

ENDDEFINE

DEFINE CLASS i_text AS textbox

FontName = "RS Sans Serif"
Height = 23
Width = 100
Name = "i_text"

*   PROCEDURE InteractiveChange
*   s=This.Value
*   ENDPROC

ENDDEFINE