'===========================================================================
' Subject: Simple Text Editor                 Date: 12-15-02 (  :  )       
'  Author: SmOoth                             Code: Envelop                
'  Origin: sm0oth@juno.com                  Packet: TEXT.ABC
'===========================================================================
Type Form1 From Form
  Type menubar1 From MenuBar
    Dim Popup1 As New PopupMenu

    ' METHODS for object: Form1.menubar1
    Sub Popup1_New_Click()
      Form1.txtText.Text = ""
    End Sub

    Sub Popup1_Open_Click()
      OpenDialog.Title = "Select File" ' Dialog Caption
    
      OpenDialog.Filter = "All Files(*.*)|*.*|" ' Filter
    
      If OpenDialog.Execute = IDCANCEL Then Exit Sub ' Cancel was pressed
    
      If OpenDialog.FileName <> "" Then 
        TextFile.FileName = OpenDialog.FileName
        Form1.txtText.Text = TextFile.ContentsAsString
      End If
    
    End Sub

    Sub Popup1_Save_Click()
      SaveAsDialog.Title = "Save as..." ' Dialog Caption
      SaveAsDialog.FileName = "*.txt"
      SaveAsDialog.Filter = "Text Documents(*.txt)|*.txt|All Files (*.*)|*.*"
    
      If SaveAsDialog.Execute = IDCANCEL Then Exit Sub
      TextFile.FileName = SaveAsDialog.FileName
    
      TextFile.SetContentsTo(Form1.txtText.Text)
    End Sub

  End Type
  Dim txtText As New RichTextBox

  ' METHODS for object: Form1
  Sub Resize()
    txtText.Width = Form1.Width - 120
    txtText.Height = Form1.Height - 775
  End Sub

End Type

Type Application1 From Application
  Dim AccessControl As New ACL
End Type

Begin Code
' Reconstruction commands for object: Form1
'
  With Form1
    .Caption := "Text"
    .Move(3945, 1710, 6720, 5325)
    .MenuBar := Form1.menubar1
    With .menubar1

      .InsertPopup(Form1.menubar1.Popup1, "&File", -1)
      With .Popup1

        .InsertItem("New", "New", -1)
        .InsertItem("Open", "Open", -1)
        .InsertItem("Save", "Save", -1)
      End With  'Form1.menubar1.Popup1
    End With  'Form1.menubar1
    With .txtText
      .ZOrder := 1
      .Move(0, 0, 6600, 4545)
      .ScrollBars := "Both"
    End With  'Form1.txtText
  End With  'Form1
' Reconstruction commands for object: Application1
'
  With Application1
    .ModulePath := "base.ebo;win32.ebo;dialogs.ebo;tools.ebo;mod1.ebo"
    .ProjectFileName := "C:\Envelop\Projects\Text\app1.epj"
    .MainForm := Form1
    .Path := "C:\Envelop\PROGRAM\"
    .EXEName := "app1"
    With .AccessControl
      .ObjectAccess := "R,W,C,M,P"
    End With  'Application1.AccessControl
  End With  'Application1
End Code