home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SMARTCTR / 001.LSS next >
Text File  |  1996-10-21  |  5KB  |  198 lines
  1. 'Copyright 1995-96, Lotus Development Corporation. All rights reserved.
  2. %if GEMINI
  3. Use "LTAPGN11"
  4. Use "LTAPVN11"
  5. %elseif IBM_OS2
  6. Use "LTAPGO11"
  7. Use "LTAPVO11"
  8. %end if
  9. %if GEMINI
  10. Use "LTAPSN11"
  11. %elseif IBM_OS2
  12. Use "LTAPSO11"
  13. %end if
  14.  
  15. Sub Initialize
  16.    ClientMainWinClass = SMARTCENTER_MAINWINCLASS
  17.    ClientID = AN_SMARTCEN
  18.    ClientModName = SMARTCENTER_PERSMODNAME
  19.    ClientLotusAppID = "SMARTCENTER"
  20.    ShowMeModName = "001"
  21.    AnimVersionNum =  2.32 
  22.    NumFramesThisAnim =  22 
  23.    AnimationType = "QuickDemo"
  24.    SampleFile = "sc8en.123"
  25.    AnimName = GetString( "0010000", IResult% )
  26. End Sub
  27.  
  28. Public Sub ShowMe (theNextStep As Integer)
  29.  
  30. GetCursorPos TempPos
  31. CursorPosForStep(theNextStep) = TempPos
  32.  
  33. Select Case theNextStep
  34.  
  35. Case  1 
  36.    StepsText = GetString( "0011001", IResult% )
  37.    StartAppFromSC AN_GEMINI, "sc8en.123"
  38.    Exit Sub
  39.  
  40. Case  2 
  41.    StepsText = GetString( "0011002", IResult% )
  42.    X = SetTargetWindow (ToolWin_G, "sc8en.123", ClientID, DeskwHdl.val)
  43.    X = DoWhereIs (CELL_OBJ_G,"",1,5,0,0,ClientID)
  44.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  45.    HideTextBubble
  46.    MoveToObj Center
  47.    DoMouse WM_LBUTTONDOWN%, 0
  48.    Exit Sub
  49.  
  50. Case  3 
  51.    X = SetTargetWindow (ToolWin_G, "sc8en.123", ClientID, DeskwHdl.val)
  52.    X = DoWhereIs (CELL_OBJ_G,"",5,11,0,0,ClientID)
  53.    MoveToObj Center
  54.    DoMouse WM_LBUTTONUP%, 0
  55.    Exit Sub
  56.  
  57. Case  4 
  58.    StepsText = GetString( "0011003", IResult% )
  59.    SetBubblePosforMenus
  60.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  61.    HideTextBubble
  62.    ChooseMenuItem  DtEditCopy_g
  63.    Exit Sub
  64.  
  65. Case  5 
  66.    StepsText = GetString( "0011004", IResult% )
  67.    StartAppFromSC AN_AVERY, "curve.prz"
  68.    Exit Sub
  69.  
  70. Case  6 
  71.    StepsText = GetString( "0011005", IResult% )
  72.    X = DoWhereIs (GUTTER_CONTROL_V,"",NEW_PAGE_BUTTON_V,0,0,0,ClientID)
  73.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  74.    HideTextBubble
  75.    MoveToObj Center
  76.    DoMouse WM_LBUTTONDOWN%, 0
  77.    DoMouse WM_LBUTTONUP%, 0
  78.    Exit Sub
  79.  
  80. Case  7 
  81.    StepsText = GetString( "0011006", IResult% )
  82.    Delay 500
  83.    X = DoWhereIs (DIALOG_CONTROL_V,"",9,0,0,0,ClientID)
  84.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  85.    HideTextBubble
  86.    SendCtrlKeys  "{HOME}", 100
  87.    Exit Sub
  88.  
  89. Case  8 
  90.    SendCtrlKeys  "{DOWN 9}", 100
  91.    Exit Sub
  92.  
  93. Case  9 
  94.    SendCtrlKeys  "{ENTER}", 100
  95.    Exit Sub
  96.  
  97. Case  10 
  98.    StepsText = GetString( "0011007", IResult% )
  99.    X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
  100.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  101.    HideTextBubble
  102.    MoveToObj Center
  103.    DoMouse WM_LBUTTONDOWN%, 0
  104.    DoMouse WM_LBUTTONUP%, 0
  105.    Exit Sub
  106.  
  107. Case  11 
  108.    StepsText = GetString( "0011008", IResult% )
  109.    Delay 1000
  110.    X = DoWhereIs (DIALOG_CONTROL_V,"",&HD4,0,0,0,ClientID)
  111.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  112.    HideTextBubble
  113.    MoveToObj Center
  114.    DoMouse WM_LBUTTONDOWN%, 0
  115.    DoMouse WM_LBUTTONUP%, 0
  116.    Exit Sub
  117.  
  118. Case  12 
  119.    StepsText = GetString( "0011009", IResult% )
  120.    Delay 1000
  121.    X = DoWhereIs (DIALOG_CONTROL_V,"",217,0,0,0,ClientID)
  122.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  123.    HideTextBubble
  124.    MoveToObj Center
  125.    DoMouse WM_LBUTTONDOWN%, 0
  126.    DoMouse WM_LBUTTONUP%, 0
  127.    Exit Sub
  128.  
  129. Case  13 
  130.    Delay 250
  131.    SendCtrlKeys  "{BS}", 100
  132.    Exit Sub
  133.  
  134. Case  14 
  135.    Delay 250
  136.    SendTextKeys  GetString( "0012014", IResult% ), 50
  137.    Exit Sub
  138.  
  139. Case  15 
  140.    X = DoWhereIs (DIALOG_CONTROL_V,"",218,0,0,0,ClientID)
  141.    MoveToObj Center
  142.    DoMouse WM_LBUTTONDOWN%, 0
  143.    DoMouse WM_LBUTTONUP%, 0
  144.    Exit Sub
  145.  
  146. Case  16 
  147.    Delay 250
  148.    SendCtrlKeys  "{BS}", 100
  149.    Exit Sub
  150.  
  151. Case  17 
  152.    Delay 250
  153.    SendTextKeys  GetString( "0012017", IResult% ), 50
  154.    Exit Sub
  155.  
  156. Case  18 
  157.    StepsText = GetString( "0011010", IResult% )
  158.    X = DoWhereIs (DIALOG_CONTROL_V,"",1,0,0,0,ClientID)
  159.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  160.    HideTextBubble
  161.    MoveToObj Center
  162.    DoMouse WM_LBUTTONDOWN%, 0
  163.    DoMouse WM_LBUTTONUP%, 0
  164.    Exit Sub
  165.  
  166. Case  19 
  167.    StepsText = GetString( "0011011", IResult% )
  168.    Delay 2000
  169.    X = DoWhereIs (DRAW_OBJ_V,"",1,0,0,0,ClientID)
  170.    ShowTextBubble StepsText,  .05,  .05, NorthEast
  171.    HideTextBubble
  172.    MoveToObjRel  5 , 5 
  173.    DoMouse WM_LBUTTONDOWN%, 0
  174.    DoMouse WM_LBUTTONUP%, 0
  175.    Exit Sub
  176.  
  177. Case  20 
  178.    StepsText = GetString( "0011012", IResult% )
  179.    Delay 500
  180.    SetBubblePosforMenus
  181.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  182.    HideTextBubble
  183.    ChooseMenuItem Edit_Paste_v
  184.    Exit Sub
  185.  
  186. Case  21 
  187.    X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
  188.    MoveToObjRel  15 , 15 
  189.    DoMouse WM_LBUTTONDOWN%, 0
  190.    DoMouse WM_LBUTTONUP%, 0
  191.    Exit Sub
  192.  
  193. Case  22 
  194.    Delay 2000
  195.    Exit Sub
  196. End Select
  197. End Sub
  198.