home *** CD-ROM | disk | FTP | other *** search
- %if GEMINI
- %elseif IBM_OS2
- %end if
- %if GEMINI
- Use "LTAPMN11"
- %elseif IBM_OS2
- Use "LTAPMO11"
- %end if
-
- Sub Initialize
- ClientMainWinClass = WORDPRO_MAINWINCLASS
- ClientID = AN_AMIPRO
- ClientModName = WORDPRO_PERSMODNAME
- ClientLotusAppID = "WORDPRO"
- ShowMeModName = "110"
- AnimVersionNum = 2.3
- NumFramesThisAnim = 6
- AnimationType = "QuickDemo"
- SampleFile = "la1n71??.lwp"
- AnimName = GetString( "1100000", IResult% )
- End Sub
-
- Public Sub ShowMe (theNextStep As Integer)
-
- GetCursorPos TempPos
- CursorPosForStep(theNextStep) = TempPos
-
- Select Case theNextStep
-
- Case 1
- X = RunScriptCommand (".GoToBookMark ""smart""", ClientID, DeskwHdl.val )
- Exit Sub
-
- Case 2
- StepsText = GetString( "1101001", IResult% )
- X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, SouthEast
- HideTextBubble
- SendTextKeys GetString( "1102002", IResult% ), 50
- Exit Sub
-
- Case 3
- StepsText = GetString( "1101002", IResult% )
- X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, SouthEast
- HideTextBubble
- SendTextKeys GetString( "1102003", IResult% ), 50
- Exit Sub
-
- Case 4
- StepsText = GetString( "1101003", IResult% )
- X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
- ShowTextBubble StepsText, -10, 0, SouthEast
- HideTextBubble
- Exit Sub
-
- Case 5
- SendTextKeys GetString( "1102005", IResult% ), 50
- Exit Sub
-
- Case 6
- StepsText = GetString( "1101004", IResult% )
- X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
- ShowTextBubble StepsText, -70, 0, SouthEast
- HideTextBubble
- Exit Sub
- End Select
- End Sub
-