home *** CD-ROM | disk | FTP | other *** search
- ' Copyright 1995-97, Lotus Development Corporation. All rights reserved.
- %if GEMINI
- %elseif IBM_OS2
- %end if
- %if GEMINI
- Use "LTAPGN11"
- %elseif IBM_OS2
- Use "LTAPGO11"
- %end if
-
- Sub Initialize
- ClientMainWinClass = GEMINI_MAINWINCLASS
- ClientID = AN_GEMINI
- ClientModName = GEMINI_PERSMODNAME
- ClientLotusAppID = "GEMINI"
- ShowMeModName = "095"
- AnimVersionNum = 2.24
- NumFramesThisAnim = 12
- AnimationType = "QuickDemo"
- SampleFile = "ssdn02??.123"
- AnimName = GetString( "0950000", IResult% )
- End Sub
-
- Public Sub ShowMe (theNextStep As Integer)
-
- GetCursorPos TempPos
- CursorPosForStep(theNextStep) = TempPos
-
- Select Case theNextStep
-
- Case 1
- StepsText = GetString( "0951001", IResult% )
- X = SetTargetWindow (ToolWin_G, "ssdn02??.123", ClientID, DeskwHdl.val)
- X = DoWhereIs (CELL_OBJ_G,"",2,5,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- Exit Sub
-
- Case 2
- X = SetTargetWindow (ToolWin_G, "ssdn02??.123", ClientID, DeskwHdl.val)
- X = DoWhereIs (CELL_OBJ_G,"",5,8,0,0,ClientID)
- MoveToObj Center
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 3
- StepsText = GetString( "0951002", IResult% )
- SetBubblePosforMenus
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- ChooseMenuItem ShRangeNewVersion_g
- Exit Sub
-
- Case 4
- StepsText = GetString( "0951003", IResult% )
- WhereIsDlgControl DID_NV_RANGENAME_g, "", 0
- ShowTextBubble StepsText, 0, 0, SouthWest
- HideTextBubble
- Exit Sub
-
- Case 5
- StepsText = GetString( "0951004", IResult% )
- WhereIsDlgControl DID_NV_VERSIONNAME_g, "", 0
- ShowTextBubble StepsText, 0, 0, SouthWest
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 6
- SendCtrlKeys "{END}", 100
- Exit Sub
-
- Case 7
- SendCtrlKeys "^+{HOME}", 100
- Exit Sub
-
- Case 8
- Delay 500
- SendTextKeys GetString( "0952008", IResult% ), 50
- Exit Sub
-
- Case 9
- StepsText = GetString( "0951005", IResult% )
- WhereIsDlgControl DID_NV_COPYORIGINAL_g, "", 0
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 10
- StepsText = GetString( "0951006", IResult% )
- WhereIsDlgControl DID_NV_NEXT_g, "", 0
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 11
- WhereIsDlgControl DID_NV_COMMENT_g, "", 0
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- SendTextKeys GetString( "0952011", IResult% ), 50
- Exit Sub
-
- Case 12
- StepsText = GetString( "0951007", IResult% )
- WhereIsDlgControl DID_NV_OK_g, "", 0
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
- End Select
- End Sub
-