home *** CD-ROM | disk | FTP | other *** search
- 'Copyright 1995-96, Lotus Development Corporation. All rights reserved.
- %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 = "130"
- AnimVersionNum = 2.31
- NumFramesThisAnim = 6
- AnimationType = "QuickDemo"
- SampleFile = "la3n71??.lwp"
- AnimName = GetString( "1300000", IResult% )
- End Sub
-
- Public Sub ShowMe (theNextStep As Integer)
-
- GetCursorPos TempPos
- CursorPosForStep(theNextStep) = TempPos
-
- Select Case theNextStep
-
- Case 1
- X = RunScriptCommand (".GoToBookMark ""table1""", ClientID, DeskwHdl.val )
- Exit Sub
-
- Case 2
- StepsText = GetString( "1301001", IResult% )
- X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, SouthEast
- HideTextBubble
- Exit Sub
-
- Case 3
- StepsText = GetString( "1301002", IResult% )
- SetBubblePosforMenus
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- ChooseMenuItem Table_Delete_Row_Column_m
- Exit Sub
-
- Case 4
- StepsText = GetString( "1301003", IResult% )
- X = DoWhereIs (DIALOG_CONTROL_M,"",25451,0,0,0,ClientID)
- ShowTextBubble StepsText, .75, 1, SouthEast
- HideTextBubble
- Exit Sub
-
- Case 5
- X = DoWhereIs (DIALOG_CONTROL_M,"",25450,0,0,0,ClientID)
- MoveToObjRel 10 , 50
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 6
- StepsText = GetString( "1301004", IResult% )
- X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, SouthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
- End Select
- End Sub
-