home *** CD-ROM | disk | FTP | other *** search
/ Pegasus 5 / Pegasus_Vol_5_CD2.iso / lotus / lotus039.dsk / 265.LSS < prev    next >
Text File  |  1995-08-09  |  3KB  |  139 lines
  1. Use "av_mod"
  2.  
  3. Sub Initialize
  4.    ClientMainWinClass = "FLWApp"
  5.    ClientID = AN_AVERY
  6.    ClientModName = "av_mod"
  7.    ClientLotusAppID = "FLW"
  8.    ShowMeModName = "265"
  9.    AnimVersionNum =  .58 
  10.    NumFramesThisAnim =  20 
  11.    AnimationType = "QuickDemo"
  12.    SampleFile = "objalign.prz"
  13.    AnimName = GetString( "2650000", IResult% )
  14. End Sub
  15.  
  16. Public Sub ShowMe (theNextStep As Integer)
  17.  
  18. GetCursorPos TempPos
  19. CursorPosForStep(theNextStep) = TempPos
  20.  
  21. Select Case theNextStep
  22.  
  23. Case  1 
  24.    StepsText = GetString( "2651001", IResult% )
  25.    X = DoWhereIs (GUTTER_CONTROL,"",NEW_PAGE_BUTTON,0,0,0,ClientID)
  26.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  27.    HideTextBubble
  28.    MoveToObj Center
  29.    DoMouse WM_LBUTTONDOWN%, 0
  30.    DoMouse WM_LBUTTONUP%, 0
  31.    Exit Sub
  32.  
  33. Case  2 
  34.    StepsText = GetString( "2651002", IResult% )
  35.    X = DoWhereIs (DIALOG_CONTROL,"",1,0,0,0,ClientID)
  36.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  37.    HideTextBubble
  38.    SendCtrlKeys  "{HOME}", 100
  39.    Exit Sub
  40.  
  41. Case  3 
  42.    SendCtrlKeys  "{DOWN}", 100
  43.    Exit Sub
  44.  
  45. Case  4 
  46.    SendCtrlKeys  "{DOWN}", 100
  47.    Exit Sub
  48.  
  49. Case  5 
  50.    SendCtrlKeys  "{DOWN}", 100
  51.    Exit Sub
  52.  
  53. Case  6 
  54.    SendCtrlKeys  "{DOWN}", 100
  55.    Exit Sub
  56.  
  57. Case  7 
  58.    SendCtrlKeys  "{DOWN}", 100
  59.    Exit Sub
  60.  
  61. Case  8 
  62.    SendCtrlKeys  "{DOWN}", 100
  63.    Exit Sub
  64.  
  65. Case  9 
  66.    SendCtrlKeys  "{DOWN}", 100
  67.    Exit Sub
  68.  
  69. Case  10 
  70.    SendCtrlKeys  "{DOWN}", 100
  71.    Exit Sub
  72.  
  73. Case  11 
  74.    SendCtrlKeys  "{DOWN}", 100
  75.    Exit Sub
  76.  
  77. Case  12 
  78.    SendCtrlKeys  "{DOWN}", 100
  79.    Exit Sub
  80.  
  81. Case  13 
  82.    X = DoWhereIs (DIALOG_CONTROL,"",1,0,0,0,ClientID)
  83.    MoveToObj Center
  84.    DoMouse WM_LBUTTONDOWN%, 0
  85.    DoMouse WM_LBUTTONUP%, 0
  86.    Exit Sub
  87.  
  88. Case  14 
  89.    StepsText = GetString( "2651003", IResult% )
  90.    X = DoWhereIs (DRAW_OBJ,"",PAGE_BKGND,0,0,0,ClientID)
  91.    ShowTextBubble StepsText,  .5,  .6, NorthEast
  92.    HideTextBubble
  93.    MoveToObjRel  50 , 60 
  94.    DoMouse WM_LBUTTONDOWN%, 0
  95.    DoMouse WM_LBUTTONUP%, 0
  96.    Exit Sub
  97.  
  98. Case  15 
  99.    StepsText = GetString( "2651004", IResult% )
  100.    X = DoWhereIs (DIALOG_CONTROL,"",1,0,0,0,ClientID)
  101.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  102.    HideTextBubble
  103.    MoveToObj Center
  104.    DoMouse WM_LBUTTONDOWN%, 0
  105.    DoMouse WM_LBUTTONUP%, 0
  106.    Exit Sub
  107.  
  108. Case  16 
  109.    StepsText = GetString( "2651005", IResult% )
  110.    X = DoWhereIs (DRAW_OBJ,"",PAGE_BKGND,0,0,0,ClientID)
  111.    ShowTextBubble StepsText,  .3,  .3, NorthEast
  112.    HideTextBubble
  113.    SendCtrlKeys  "{TAB}", 100
  114.    Exit Sub
  115.  
  116. Case  17 
  117.    SendCtrlKeys  "{HOME}", 100
  118.    Exit Sub
  119.  
  120. Case  18 
  121.    SendCtrlKeys  "{DOWN}", 100
  122.    Exit Sub
  123.  
  124. Case  19 
  125.    SendCtrlKeys  "{DOWN}", 100
  126.    Exit Sub
  127.  
  128. Case  20 
  129.    StepsText = GetString( "2651006", IResult% )
  130.    X = DoWhereIs (DIALOG_CONTROL,"",1,0,0,0,ClientID)
  131.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  132.    HideTextBubble
  133.    MoveToObj Center
  134.    DoMouse WM_LBUTTONDOWN%, 0
  135.    DoMouse WM_LBUTTONUP%, 0
  136.    Exit Sub
  137. End Select
  138. End Sub
  139.