Macro = AutoExecCopy

RenameMenu 6, "&Smalltalk" 

==========

Macro = AutoOpen

Sub MAIN 
ViewFullMenus 
End Sub 

==========

Macro = InstallSmalltalk

Sub MAIN 
    RenameMenu 6, "&Smalltalk" 
 
    MacroAssignToMenu .Name = "----------------", .Menu = "&Smalltalk", \ 
    .MenuText = "--------------------", .Context = 0, .Assign 
 
   
    MacroEdit .Name = "SmalltalkShowIt",  .Context = 1 
    StartOfDocument 
    EndOfDocument 1 
    EditCopy 
    DocClose 
    MacroEdit .Name = "SmalltalkShowIt",  .Context = 0 
    StartOfDocument 
    EndOfDocument 1 
    EditClear 
    EditPaste 
    FileSaveAll 1 
    DocClose 
    MacroAssignToMenu "SmalltalkShowIt", "&Smalltalk",    "&Show It", 0, .Assign 
    MacroAssignToKey "SmalltalkShowIt", 339, 0 
 
 
 
    MacroEdit .Name = "SmalltalkDoIt",  .Context = 1 
    StartOfDocument 
    EndOfDocument 1 
    EditCopy 
    DocClose 
    MacroEdit .Name = "SmalltalkDoIt",  .Context = 0 
    StartOfDocument 
    EndOfDocument 1 
    EditClear 
    EditPaste 
    FileSaveAll 1 
    DocClose 
    MacroAssignToMenu "SmalltalkDoIt", "&Smalltalk",         "&Do It ", 0, .Assign 
    MacroAssignToKey "SmalltalkDoIt", 324, 0 
 
 
    MacroEdit .Name = "SmalltalkInspectIt",  .Context = 1 
    StartOfDocument 
    EndOfDocument 1 
    EditCopy 
    DocClose 
    MacroEdit .Name = "SmalltalkInspectIt",  .Context = 0 
     StartOfDocument 
    EndOfDocument 1 
    EditClear 
    EditPaste 
    FileSaveAll 1 
    DocClose 
    MacroAssignToMenu "SmalltalkInspectIt", "&Smalltalk", "&Inspect It",  0, .Assign 
    MacroAssignToKey "SmalltalkInspectIt", 329, 0 
 
 
    MacroEdit .Name = "SmalltalkFileItIn",  .Context = 1 
    StartOfDocument 
    EndOfDocument 1 
    EditCopy 
    DocClose 
    MacroEdit .Name = "SmalltalkFileItIn",  .Context = 0 
     StartOfDocument 
    EndOfDocument 1 
    EditClear 
    EditPaste 
    FileSaveAll 1 
    DocClose 
    MacroAssignToMenu "SmalltalkFileItIn", "&Smalltalk",    "File It I&n", 0, .Assign 
    MacroAssignToKey "SmalltalkFileItIn", 334, 0 
 
 
    MacroEdit .Name = "AutoExecCopy",  .Context = 1 
    StartOfDocument 
    EndOfDocument 1 
    EditCopy 
    DocClose 
    MacroEdit .Name = "AutoExec",  .Context = 0 
    StartOfDocument 
    EditSearch "End Sub", MatchCase = 1 
    LineUp 1 
    EditPaste 
    FileSaveAll 1 
    DocClose 
 
 
    MsgBox "Smalltalk commands have been added to the Smalltalk Menu (previously Macro Menu)", \ 
    "Smalltalk" 
 
End Sub 

==========

Macro = SmalltalkDoIt

Sub MAIN 
 
    CurBold = Bold() 
    CurCharColor = CharColor() 
 
    Smalltalk = DDEInitiate("Smalltalk", "Emulator") 
 
    CurSel$ = Selection$() 
    DDEPoke Smalltalk, "DoIt", CurSel$ 
 
    Result = Val(DDERequest$(Smalltalk, "Result")) 
    CharRight 1 
 
    If Result > 0 Then 
        ErrorMessage$ = DDERequest$(Smalltalk, "ErrorMessage") 
        CharLeft Len(CurSel$) + 1 - Result 
         Insert " " 
        FormatCharacter .Color = 6, .Bold = 1 
        Insert ErrorMessage$ 
        Bold CurBold 
        CharColor CurCharColor 
        Insert " " 
 
        CharLeft Len(ErrorMessage$) + 2, 1 
    End If 
 
    DDETerminate Smalltalk 
REM    CharLeft Len(Result$) + 1, 1 
End Sub 

==========

Macro = SmalltalkFileItIn

Sub MAIN 
    Smalltalk = DDEInitiate("Smalltalk", "Emulator") 
    DDEPoke Smalltalk, "FileItIn", Selection$() 
    CharRight 1 
    DDETerminate Smalltalk 
End Sub 
 
==========

Macro = SmalltalkInspectIt

Sub MAIN 
    Smalltalk = DDEInitiate("Smalltalk", "Emulator") 
    DDEPoke Smalltalk, "InspectIt", Selection$() 
    CharRight 1 
    DDETerminate Smalltalk 
End Sub 
 
==========

Macro = SmalltalkShowIt

Sub MAIN 
    Smalltalk = DDEInitiate("Smalltalk", "Emulator") 
 
    CurBold = Bold() 
    CurCharColor = CharColor() 
 
    CurSel$ = Selection$() 
    DDEPoke Smalltalk, "DoIt", CurSel$ 
 
    Result = Val(DDERequest$(Smalltalk, "Result")) 
    CharRight 1 
 
    If Result = 0 Then 
        Answer$ = DDERequest$(Smalltalk, "Answer") 
        Insert " "         
        FormatCharacter .Bold = 1 
        Insert Answer$ 
        Bold CurBold 
        CharColor CurCharColor 
        Insert " " 
 
       ExtendSelection 
       EditGoTo .Destination = "\PrevSel2" 
       Cancel 
       CharLeft 1, 1 
 
   Else 
        ErrorMessage$ = DDERequest$(Smalltalk, "ErrorMessage") 
        CharLeft Len(CurSel$) + 1 - Result 
         Insert " " 
        FormatCharacter .Color = 6, .Bold = 1 
        Insert ErrorMessage$ 
        Bold CurBold 
        CharColor CurCharColor 
        Insert " " 
 
        CharLeft Len(ErrorMessage$) + 2, 1 
    End If 
 
    DDETerminate Smalltalk 
 
End Sub 

==========

Macro = UninstallSmalltalk

Sub MAIN 
 
    RenameMenu 6, "&Macro" 
 
    MacroAssignToMenu .Name = "----------------", .Menu = "&Macro", \ 
   .MenuText = "--------------------", .Context = 0, .ResetAll 
 
    MacroEdit .Name = "SmalltalkShowIt", .Context = 0, .ShowAll = 0, .Delete 
    MacroEdit .Name = "SmalltalkDoIt", .Context = 0, .ShowAll = 0, .Delete 
    MacroEdit .Name = "SmalltalkInspectIt", .Context = 0, .ShowAll = 0, .Delete 
    MacroEdit .Name = "SmalltalkFileItIn", .Context = 0, .ShowAll = 0, .Delete 
 
 
    MacroEdit .Name = "AutoExec", .Context = 0, .ShowAll = 0 
    StartOfDocument 
    EditSearch     "RenameMenu 6, " 
    StartOfLine 
    EndOfLine 1 
    EditClear 
    FileSaveAll 1 
    DocClose 
 
 
    MsgBox "Smalltalk commands have been removed from the Macro Menu (previously Smalltalk  
Menu)", \ 
    "Smalltalk " 
 
End Sub 
 
==========