home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 November
/
Pcwk1197.iso
/
LOTUS
/
Eng-ins
/
WORDPRO
/
006.LSS
< prev
next >
Wrap
Text File
|
1996-09-17
|
2KB
|
69 lines
'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 = "006"
AnimVersionNum = 2.31
NumFramesThisAnim = 5
AnimationType = "QuickDemo"
SampleFile = "la1n71??.lwp"
AnimName = GetString( "0060000", IResult% )
End Sub
Public Sub ShowMe (theNextStep As Integer)
GetCursorPos TempPos
CursorPosForStep(theNextStep) = TempPos
Select Case theNextStep
Case 1
X = RunScriptCommand (".GoToBookMark ""italicize""", ClientID, DeskwHdl.val )
Exit Sub
Case 2
StepsText = GetString( "0061001", IResult% )
X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
Exit Sub
Case 3
X = RunScriptCommand (".GoToBookMark ""italicize2""", ClientID, DeskwHdl.val )
Exit Sub
Case 4
StepsText = GetString( "0061002", IResult% )
X = DoWhereIs (0,"",STATUS_BAR_ITALIC_M,0,0,0,AN_STATUSBAR)
If X <> 0 Then
Y = RunScriptCommand (".ActiveDocWindow.WinViewPrefs.IsViewStatusBarCleanScrn=True", AN_AMIPRO, DeskwHdl.val )
X = DoWhereIs (0,"",STATUS_BAR_ITALIC_M,0,0,0,AN_STATUSBAR)
End If
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 5
X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
End Select
End Sub