home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / lotus123rel9 / approach / 001.lss next >
Encoding:
Text File  |  1996-04-17  |  5.8 KB  |  237 lines
  1. Use "LTAPPN11"
  2.  
  3. Sub Initialize
  4.    ClientMainWinClass = "ApproachWClass"
  5.    ClientID = AN_APPROACH
  6.    ClientModName = "LTAPPN11"
  7.    ClientLotusAppID = "APPROACH"
  8.    ShowMeModName = "001"
  9.    AnimVersionNum =  2.16 
  10.    NumFramesThisAnim =  28 
  11.    AnimationType = "QuickDemo"
  12.    SampleFile = "Dmosmpl2.APR"
  13.    AnimName = GetString( "0010000", 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.  
  25. Frame1A:
  26.    X = DoWhereIs (ACTIONBAR_OBJ_P,"",ACTION_DESIGN_P,0,0,0,ClientID)
  27.    If ObjInfo.winHdl = 0 Then
  28.       GoTo Frame1B
  29.    Else
  30.       GoTo Frame1AContinue
  31.    End If
  32.  
  33. Frame1B:
  34.    SetBubblePosforMenus
  35.    ChooseMenuItem View_Design_P
  36.    Exit Sub
  37.  
  38. Frame1AContinue:
  39.    MoveToObj Center
  40.    DoMouse WM_LBUTTONDOWN%, 0
  41.    DoMouse WM_LBUTTONUP%, 0
  42.    Exit Sub
  43.  
  44. Case  2 
  45.    X = DoWhereIs (FORM_OBJ_P,"ObjText2",0,0,0,0,ClientID)
  46.    SendTextKeys  GetString( "0012002", IResult% ), 50
  47.    Exit Sub
  48.  
  49. Case  3 
  50.    StepsText = GetString( "0011001", IResult% )
  51.    X = DoWhereIs (FORM_OBJ_P,"ObjText2",0,0,0,0,ClientID)
  52.    ShowTextBubble StepsText,  .01,  1.8, NorthEast
  53.    HideTextBubble
  54.    MoveToObjRel  1 , 180 
  55.    DoMouse WM_LBUTTONDOWN%, 0
  56.    DoMouse WM_LBUTTONUP%, 0
  57.    Exit Sub
  58.  
  59. Case  4 
  60.    StepsText = GetString( "0011002", IResult% )
  61.    SetBubblePosforMenus
  62.    ShowTextBubble StepsText,  .5,  2, NorthEast
  63.    HideTextBubble
  64.    ChooseMenuItem Create_Repeating_Panel_p
  65.    Exit Sub
  66.  
  67. Case  5 
  68.    StepsText = GetString( "0011003", IResult% )
  69.    X = DoWhereIs (DIALOG_CONTROL_P,"",301,0,0,0,ClientID)
  70.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  71.    HideTextBubble
  72.    MoveToObj Center
  73.    DoMouse WM_LBUTTONDOWN%, 0
  74.    DoMouse WM_LBUTTONUP%, 0
  75.    Exit Sub
  76.  
  77. Case  6 
  78.    X = DoWhereIs (DIALOG_CONTROL_P,"",301,0,0,0,ClientID)
  79.    MoveToObjRel  50 , 190 
  80.    DoMouse WM_LBUTTONDOWN%, 0
  81.    DoMouse WM_LBUTTONUP%, 0
  82.    Exit Sub
  83.  
  84. Case  7 
  85.    StepsText = GetString( "0011004", IResult% )
  86.    X = DoWhereIs (DIALOG_CONTROL_P,"",401,0,0,0,ClientID)
  87.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  88.    HideTextBubble
  89.    MoveToObjRel  50 , 25 
  90.    DoMouse WM_LBUTTONDOWN%, 0
  91.    DoMouse WM_LBUTTONUP%, 0
  92.    Exit Sub
  93.  
  94. Case  8 
  95.    StepsText = GetString( "0011005", IResult% )
  96.    X = DoWhereIs (DIALOG_CONTROL_P,"",403,0,0,0,ClientID)
  97.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  98.    HideTextBubble
  99.    MoveToObj Center
  100.    DoMouse WM_LBUTTONDOWN%, 0
  101.    DoMouse WM_LBUTTONUP%, 0
  102.    Exit Sub
  103.  
  104. Case  9 
  105.    StepsText = GetString( "0011006", IResult% )
  106.    X = DoWhereIs (DIALOG_CONTROL_P,"",401,0,0,0,ClientID)
  107.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  108.    HideTextBubble
  109.    MoveToObjRel  50 , 10 
  110.    DoMouse WM_LBUTTONDOWN%, 0
  111.    DoMouse WM_LBUTTONUP%, 0
  112.    Exit Sub
  113.  
  114. Case  10 
  115.    X = DoWhereIs (DIALOG_CONTROL_P,"",403,0,0,0,ClientID)
  116.    MoveToObj Center
  117.    DoMouse WM_LBUTTONDOWN%, 0
  118.    DoMouse WM_LBUTTONUP%, 0
  119.    Exit Sub
  120.  
  121. Case  11 
  122.    X = DoWhereIs (DIALOG_CONTROL_P,"",401,0,0,0,ClientID)
  123.    MoveToObjRel  50 , 40 
  124.    DoMouse WM_LBUTTONDOWN%, 0
  125.    DoMouse WM_LBUTTONUP%, 0
  126.    Exit Sub
  127.  
  128. Case  12 
  129.    X = DoWhereIs (DIALOG_CONTROL_P,"",403,0,0,0,ClientID)
  130.    MoveToObj Center
  131.    DoMouse WM_LBUTTONDOWN%, 0
  132.    DoMouse WM_LBUTTONUP%, 0
  133.    Exit Sub
  134.  
  135. Case  13 
  136.    StepsText = GetString( "0011007", IResult% )
  137.    X = DoWhereIs (DIALOG_CONTROL_P,"",310,0,0,0,ClientID)
  138.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  139.    HideTextBubble
  140.    MoveToObj Center
  141.    DoMouse WM_LBUTTONDOWN%, 0
  142.    DoMouse WM_LBUTTONUP%, 0
  143.    Exit Sub
  144.  
  145. Case  14 
  146.    X = DoWhereIs (DIALOG_CONTROL_P,"",311,0,0,0,ClientID)
  147.    MoveToObj Center
  148.    DoMouse WM_LBUTTONDOWN%, 0
  149.    DoMouse WM_LBUTTONUP%, 0
  150.    Exit Sub
  151.  
  152. Case  15 
  153.    X = DoWhereIs (DIALOG_CONTROL_P,"",311,0,0,0,ClientID)
  154.    SendTextKeys  GetString( "0012015", IResult% ), 50
  155.    Exit Sub
  156.  
  157. Case  16 
  158.    X = DoWhereIs (DIALOG_CONTROL_P,"",311,0,0,0,ClientID)
  159.    SendTextKeys  GetString( "0012016", IResult% ), 50
  160.    Exit Sub
  161.  
  162. Case  17 
  163.    SendTextKeys  GetString( "0012017", IResult% ), 50
  164.    Exit Sub
  165.  
  166. Case  18 
  167.    SendTextKeys  GetString( "0012018", IResult% ), 50
  168.    Exit Sub
  169.  
  170. Case  19 
  171.    SendTextKeys  GetString( "0012019", IResult% ), 50
  172.    Exit Sub
  173.  
  174. Case  20 
  175.    SendTextKeys  GetString( "0012020", IResult% ), 50
  176.    Exit Sub
  177.  
  178. Case  21 
  179.    X = DoWhereIs (DIALOG_CONTROL_P,"",311,0,0,0,ClientID)
  180.    DoMouse WM_LBUTTONDOWN%, 0
  181.    DoMouse WM_LBUTTONUP%, 0
  182.    Exit Sub
  183.  
  184. Case  22 
  185.    StepsText = GetString( "0011008", IResult% )
  186.    X = DoWhereIs (DIALOG_CONTROL_P,"",350,0,0,0,ClientID)
  187.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  188.    HideTextBubble
  189.    MoveToObj Center
  190.    DoMouse WM_LBUTTONDOWN%, 0
  191.    DoMouse WM_LBUTTONUP%, 0
  192.    Exit Sub
  193.  
  194. Case  23 
  195.    StepsText = GetString( "0011009", IResult% )
  196.    X = DoWhereIs (DIALOG_CONTROL_P,"",313,0,0,0,ClientID)
  197.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  198.    HideTextBubble
  199.    MoveToObj Center
  200.    DoMouse WM_LBUTTONDOWN%, 0
  201.    DoMouse WM_LBUTTONUP%, 0
  202.    Exit Sub
  203.  
  204. Case  24 
  205.    StepsText = GetString( "0011010", IResult% )
  206.    X = DoWhereIs (DIALOG_CONTROL_P,"",1,0,0,0,ClientID)
  207.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  208.    HideTextBubble
  209.    MoveToObj Center
  210.    DoMouse WM_LBUTTONDOWN%, 0
  211.    DoMouse WM_LBUTTONUP%, 0
  212.    Exit Sub
  213.  
  214. Case  25 
  215.    StepsText = GetString( "0011011", IResult% )
  216.    X = DoWhereIs (DIALOG_CONTROL_P,"",1,0,0,0,ClientID)
  217.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  218.    HideTextBubble
  219.    MoveToObj Center
  220.    DoMouse WM_LBUTTONDOWN%, 0
  221.    DoMouse WM_LBUTTONUP%, 0
  222.    Exit Sub
  223.  
  224. Case  26 
  225.    SendTextKeys  GetString( "0012026", IResult% ), 50
  226.    Exit Sub
  227.  
  228. Case  27 
  229.    SendTextKeys  GetString( "0012027", IResult% ), 50
  230.    Exit Sub
  231.  
  232. Case  28 
  233.    SendTextKeys  GetString( "0012028", IResult% ), 50
  234.    Exit Sub
  235. End Select
  236. End Sub
  237.