home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / 123 / 200.LSS < prev    next >
Text File  |  1998-03-19  |  4KB  |  145 lines
  1. 'Copyright 1995-98, Lotus Development Corporation. All rights reserved.
  2. %if GEMINI
  3. %elseif IBM_OS2
  4. %end if
  5. %if GEMINI
  6. Use "LTAPGN11"
  7. %elseif IBM_OS2
  8. Use "LTAPGO11"
  9. %end if
  10. Sub Initialize
  11.    ClientMainWinClass = GEMINI_MAINWINCLASS
  12.    ClientID = AN_GEMINI
  13.    ClientModName = GEMINI_PERSMODNAME
  14.    ClientLotusAppID = "GEMINI"
  15.    ShowMeModName = "200"
  16.    AnimVersionNum =  2.36 
  17.    NumFramesThisAnim =  15 
  18.    AnimationType = "QuickDemo"
  19.    SampleFile = "ssdn17??.123"
  20.    AnimName = GetString( "2000000", IResult% )
  21. End Sub
  22.  
  23. Public Sub ShowMe (theNextStep As Integer)
  24.  
  25. GetCursorPos TempPos
  26. CursorPosForStep(theNextStep) = TempPos
  27.  
  28. Select Case theNextStep
  29.  
  30. Case  1 
  31.    StepsText = GetString( "2001001", IResult% )
  32.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  33.    X = DoWhereIs (CELL_OBJ_G,"",4,13,0,0,ClientID)
  34.    ShowTextBubble StepsText,  1,  .5, NorthEast
  35.    HideTextBubble
  36.    Exit Sub
  37.  
  38. Case  2 
  39.    StepsText = GetString( "2001002", IResult% )
  40.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  41.    X = DoWhereIs (CELL_OBJ_G,"",2,3,0,0,ClientID)
  42.    ShowTextBubble StepsText,  .5,  0, NorthEast
  43.    HideTextBubble
  44.    Exit Sub
  45.  
  46. Case  3 
  47.    StepsText = GetString( "2001003", IResult% )
  48.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  49.    X = DoWhereIs (CELL_OBJ_G,"",4,4,0,0,ClientID)
  50.    ShowTextBubble StepsText,  1,  .5, NorthEast
  51.    HideTextBubble
  52.    Exit Sub
  53.  
  54. Case  4 
  55.    StepsText = GetString( "2001004", IResult% )
  56.    Delay 1000
  57.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  58.    X = DoWhereIs (CELL_OBJ_G,"",4,3,0,0,ClientID)
  59.    ShowTextBubble StepsText,  1,  .5, SouthEast
  60.    HideTextBubble
  61.    Exit Sub
  62.  
  63. Case  5 
  64.    StepsText = GetString( "2001005", IResult% )
  65.    ShowTextBubble StepsText,  1,  .5, SouthEast
  66.    HideTextBubble
  67.    Exit Sub
  68.  
  69. Case  6 
  70.    StepsText = GetString( "2001006", IResult% )
  71.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  72.    X = DoWhereIs (CELL_OBJ_G,"",2,3,0,0,ClientID)
  73.    ShowTextBubble StepsText,  .5,  0, NorthEast
  74.    HideTextBubble
  75.    Exit Sub
  76.  
  77. Case  7 
  78.    StepsText = GetString( "2001007", IResult% )
  79.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  80.    X = DoWhereIs (CELL_OBJ_G,"",4,4,0,0,ClientID)
  81.    ShowTextBubble StepsText,  1,  .5, NorthEast
  82.    HideTextBubble
  83.    Exit Sub
  84.  
  85. Case  8 
  86.    StepsText = GetString( "2001008", IResult% )
  87.    ShowTextBubble StepsText,  1,  .5, NorthEast
  88.    HideTextBubble
  89.    Exit Sub
  90.  
  91. Case  9 
  92.    StepsText = GetString( "2001009", IResult% )
  93.    Delay 1000
  94.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  95.    X = DoWhereIs (CELL_OBJ_G,"",4,13,0,0,ClientID)
  96.    ShowTextBubble StepsText,  1,  .5, NorthEast
  97.    HideTextBubble
  98.    Exit Sub
  99.  
  100. Case  10 
  101.    StepsText = GetString( "2001010", IResult% )
  102.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  103.    X = DoWhereIs (CELL_OBJ_G,"",5,8,0,0,ClientID)
  104.    ShowTextBubble StepsText,  1,  .5, SouthWest
  105.    HideTextBubble
  106.    Exit Sub
  107.  
  108. Case  11 
  109.    StepsText = GetString( "2001011", IResult% )
  110.    ShowTextBubble StepsText,  1,  .5, SouthWest
  111.    HideTextBubble
  112.    Exit Sub
  113.  
  114. Case  12 
  115.    StepsText = GetString( "2001012", IResult% )
  116.    Delay 1000
  117.    ShowTextBubble StepsText,  1,  .5, SouthWest
  118.    HideTextBubble
  119.    Exit Sub
  120.  
  121. Case  13 
  122.    StepsText = GetString( "2001013", IResult% )
  123.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  124.    X = DoWhereIs (CELL_OBJ_G,"",5,16,0,0,ClientID)
  125.    ShowTextBubble StepsText,  1,  .5, SouthWest
  126.    HideTextBubble
  127.    Exit Sub
  128.  
  129. Case  14 
  130.    StepsText = GetString( "2001014", IResult% )
  131.    ShowTextBubble StepsText,  1,  .5, SouthWest
  132.    HideTextBubble
  133.    Exit Sub
  134.  
  135. Case  15 
  136.    StepsText = GetString( "2001015", IResult% )
  137.    Delay 1000
  138.    X = SetTargetWindow (ToolWin_G, "ssdn17??.123", ClientID, DeskwHdl.val)
  139.    X = DoWhereIs (COLUMN_SELECTOR_G,"",2,1,0,0,ClientID)
  140.    ShowTextBubble StepsText,  .5, -4, SouthWest
  141.    HideTextBubble
  142.    Exit Sub
  143. End Select
  144. End Sub
  145.