' 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 = "120" AnimVersionNum = 2.24 NumFramesThisAnim = 6 AnimationType = "QuickDemo" SampleFile = "ssdn02??.123" AnimName = GetString( "1200000", IResult% ) End Sub Public Sub ShowMe (theNextStep As Integer) GetCursorPos TempPos CursorPosForStep(theNextStep) = TempPos Select Case theNextStep Case 1 StepsText = GetString( "1201001", IResult% ) SetBubblePosforMenus ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble ChooseMenuItem DtCreateText_g Exit Sub Case 2 StepsText = GetString( "1201002", IResult% ) X = SetTargetWindow (ToolWin_G, "ssdn02??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",5,1,0,0,ClientID) ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 Exit Sub Case 3 StepsText = GetString( "1201003", IResult% ) X = SetTargetWindow (ToolWin_G, "ssdn02??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",6,2,0,0,ClientID) ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble MoveToObj Center Exit Sub Case 4 StepsText = GetString( "1201004", IResult% ) ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 5 StepsText = GetString( "1201005", IResult% ) ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble SendTextKeys GetString( "1202005", IResult% ), 50 Exit Sub Case 6 StepsText = GetString( "1201006", IResult% ) X = SetTargetWindow (ToolWin_G, "ssdn02??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",5,3,0,0,ClientID) ShowTextBubble StepsText, .5, .5, SouthWest HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub End Select End Sub