home *** CD-ROM | disk | FTP | other *** search
/ Pegasus 5 / Pegasus_Vol_5_CD2.iso / lotus / lotus018.dsk / 002.LSS < prev    next >
Text File  |  1995-10-15  |  5KB  |  176 lines
  1. Use "ap_mod"
  2.  
  3. Sub Initialize
  4.    ClientMainWinClass = "ApproachWClass"
  5.    ClientID = AN_APPROACH
  6.    ClientModName = "ap_mod"
  7.    ClientLotusAppID = "APPROACH"
  8.    ShowMeModName = "002"
  9.    AnimVersionNum =  .63 
  10.    NumFramesThisAnim =  21 
  11.    AnimationType = "QuickDemo"
  12.    SampleFile = "Dmosmpl1.APR"
  13.    AnimName = GetString( "0020000", 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( "0021001", IResult% )
  25.    SetBubblePosforMenus
  26.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  27.    HideTextBubble
  28.    ChooseMenuItem d_Named_Find_Sort
  29.    Exit Sub
  30.  
  31. Case  2 
  32.    StepsText = GetString( "0021002", IResult% )
  33.    X = DoWhereIs (DIALOG_CONTROL,"",1001,0,0,0,ClientID)
  34.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  35.    HideTextBubble
  36.    MoveToObj Center
  37.    DoMouse WM_LBUTTONDOWN%, 0
  38.    DoMouse WM_LBUTTONUP%, 0
  39.    Exit Sub
  40.  
  41. Case  3 
  42.    StepsText = GetString( "0021003", IResult% )
  43.    X = DoWhereIs (DIALOG_CONTROL,"",102,0,0,0,ClientID)
  44.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  45.    HideTextBubble
  46.    MoveToObj Center
  47.    DoMouse WM_LBUTTONDOWN%, 0
  48.    DoMouse WM_LBUTTONUP%, 0
  49.    Exit Sub
  50.  
  51. Case  4 
  52.    SendTextKeys  GetString( "0022004", IResult% ), 50
  53.    Exit Sub
  54.  
  55. Case  5 
  56.    StepsText = GetString( "0021004", IResult% )
  57.    X = DoWhereIs (DIALOG_CONTROL,"",555,0,0,0,ClientID)
  58.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  59.    HideTextBubble
  60.    MoveToObjRel  25 , 50 
  61.    DoMouse WM_LBUTTONDOWN%, 0
  62.    DoMouse WM_LBUTTONUP%, 0
  63.    Exit Sub
  64.  
  65. Case  6 
  66.    X = DoWhereIs (DIALOG_CONTROL,"",534,0,0,0,ClientID)
  67.    MoveToObjRel  25 , 5 
  68.    Exit Sub
  69.  
  70. Case  7 
  71.    X = DoWhereIs (DIALOG_CONTROL,"",519,0,0,0,ClientID)
  72.    MoveToObj Center
  73.    DoMouse WM_LBUTTONDOWN%, 0
  74.    DoMouse WM_LBUTTONUP%, 0
  75.    Exit Sub
  76.  
  77. Case  8 
  78.    X = DoWhereIs (DIALOG_CONTROL,"",1000,0,0,0,ClientID)
  79.    MoveToObjRel  50 , 45 
  80.    DoMouse WM_LBUTTONDOWN%, 0
  81.    DoMouse WM_LBUTTONUP%, 0
  82.    Exit Sub
  83.  
  84. Case  9 
  85.    X = DoWhereIs (DIALOG_CONTROL,"",528,0,0,0,ClientID)
  86.    MoveToObjRel  50 , 45 
  87.    DoMouse WM_LBUTTONDOWN%, 0
  88.    DoMouse WM_LBUTTONUP%, 0
  89.    Exit Sub
  90.  
  91. Case  10 
  92.    X = DoWhereIs (DIALOG_CONTROL,"",530,0,0,0,ClientID)
  93.    MoveToObjRel  50 , 25 
  94.    DoMouse WM_LBUTTONDOWN%, 0
  95.    DoMouse WM_LBUTTONUP%, 0
  96.    SendTextKeys  GetString( "0022010", IResult% ), 50
  97.    Exit Sub
  98.  
  99. Case  11 
  100.    X = DoWhereIs (DIALOG_CONTROL,"",530,0,0,0,ClientID)
  101.    SendTextKeys  GetString( "0022011", IResult% ), 50
  102.    Exit Sub
  103.  
  104. Case  12 
  105.    X = DoWhereIs (DIALOG_CONTROL,"",530,0,0,0,ClientID)
  106.    SendTextKeys  GetString( "0022012", IResult% ), 50
  107.    Exit Sub
  108.  
  109. Case  13 
  110.    X = DoWhereIs (DIALOG_CONTROL,"",519,0,0,0,ClientID)
  111.    MoveToObj Center
  112.    DoMouse WM_LBUTTONDOWN%, 0
  113.    DoMouse WM_LBUTTONUP%, 0
  114.    Exit Sub
  115.  
  116. Case  14 
  117.    X = DoWhereIs (DIALOG_CONTROL,"",519,0,0,0,ClientID)
  118.    MoveToObj Center
  119.    DoMouse WM_LBUTTONDOWN%, 0
  120.    DoMouse WM_LBUTTONUP%, 0
  121.    Exit Sub
  122.  
  123. Case  15 
  124.    X = DoWhereIs (DIALOG_CONTROL,"",535,0,0,0,ClientID)
  125.    MoveToObj Center
  126.    DoMouse WM_LBUTTONDOWN%, 0
  127.    DoMouse WM_LBUTTONUP%, 0
  128.    Exit Sub
  129.  
  130. Case  16 
  131.    X = DoWhereIs (DIALOG_CONTROL,"",536,0,0,0,ClientID)
  132.    MoveToObjRel  1 , 50 
  133.    DoMouse WM_LBUTTONDOWN%, 0
  134.    DoMouse WM_LBUTTONUP%, 0
  135.    SendTextKeys  GetString( "0022016", IResult% ), 50
  136.    Exit Sub
  137.  
  138. Case  17 
  139.    X = DoWhereIs (DIALOG_CONTROL,"",536,0,0,0,ClientID)
  140.    SendTextKeys  GetString( "0022017", IResult% ), 50
  141.    Exit Sub
  142.  
  143. Case  18 
  144.    X = DoWhereIs (DIALOG_CONTROL,"",536,0,0,0,ClientID)
  145.    SendTextKeys  GetString( "0022018", IResult% ), 50
  146.    Exit Sub
  147.  
  148. Case  19 
  149.    StepsText = GetString( "0021005", IResult% )
  150.    X = DoWhereIs (DIALOG_CONTROL,"",1,0,0,0,ClientID)
  151.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  152.    HideTextBubble
  153.    MoveToObj Center
  154.    DoMouse WM_LBUTTONDOWN%, 0
  155.    DoMouse WM_LBUTTONUP%, 0
  156.    Exit Sub
  157.  
  158. Case  20 
  159.    StepsText = GetString( "0021006", IResult% )
  160.    X = DoWhereIs (DIALOG_CONTROL,"",1004,0,0,0,ClientID)
  161.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  162.    HideTextBubble
  163.    Exit Sub
  164.  
  165. Case  21 
  166.    StepsText = GetString( "0021007", IResult% )
  167.    X = DoWhereIs (DIALOG_CONTROL,"",1,0,0,0,ClientID)
  168.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  169.    HideTextBubble
  170.    MoveToObj Center
  171.    DoMouse WM_LBUTTONDOWN%, 0
  172.    DoMouse WM_LBUTTONUP%, 0
  173.    Exit Sub
  174. End Select
  175. End Sub
  176.