' 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 = "045" AnimVersionNum = 2.24 NumFramesThisAnim = 14 AnimationType = "QuickDemo" SampleFile = "ssdn07??.123" AnimName = GetString( "0450000", IResult% ) End Sub Public Sub ShowMe (theNextStep As Integer) GetCursorPos TempPos CursorPosForStep(theNextStep) = TempPos Select Case theNextStep Case 1 StepsText = GetString( "0451001", IResult% ) X = SetTargetWindow (ToolWin_G, "ssdn07??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID) ShowTextBubble StepsText, .5, .5, SouthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 Exit Sub Case 2 X = SetTargetWindow (ToolWin_G, "ssdn07??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",1,11,0,0,ClientID) MoveToObj Center DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 3 StepsText = GetString( "0451002", IResult% ) SetBubblePosforMenus ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble ChooseMenuItem ShFill_g Exit Sub Case 4 StepsText = GetString( "0451003", IResult% ) WhereIsDlgControl DID_RF_LB_FILLTYPE_g, "", 0 ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 5 StepsText = GetString( "0451004", IResult% ) WhereIsDlgControl DID_RF_LB_FILLTYPE_g, "", 0 ShowTextBubble StepsText, 1.4, .15, SouthEast HideTextBubble MoveToObjRel 140 , 15 Exit Sub Case 6 StepsText = GetString( "0451005", IResult% ) WhereIsDlgControl DID_RF_EC_START_g, "", 0 ShowTextBubble StepsText, .5, .5, SouthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 7 Delay 1000 SendCtrlKeys "{HOME}+{END}", 100 Exit Sub Case 8 Delay 500 SendTextKeys GetString( "0452008", IResult% ), 50 Exit Sub Case 9 WhereIsDlgControl DID_RF_EC_STEP_g, "", 0 MoveToObj Center Exit Sub Case 10 StepsText = GetString( "0451006", IResult% ) Delay 500 WhereIsDlgControl DID_RF_EC_STOP_TEXT_g, "", 0 ShowTextBubble StepsText, .5, .5, SouthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 11 Delay 1000 SendCtrlKeys "{HOME}+{END}", 100 Exit Sub Case 12 Delay 500 SendTextKeys GetString( "0452012", IResult% ), 50 Exit Sub Case 13 StepsText = GetString( "0451007", IResult% ) WhereIsDlgControl DID_OK_g, "", 0 ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 14 X = SetTargetWindow (ToolWin_G, "ssdn07??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",1,12,0,0,ClientID) MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub End Select End Sub