home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SMARTCTR / 003.LSS < prev    next >
Text File  |  1996-10-21  |  3KB  |  135 lines
  1. 'Copyright 1995-96, Lotus Development Corporation. All rights reserved.
  2. %if GEMINI
  3. Use "LTAPGN11"
  4. Use "LTAPMN11"
  5. %elseif IBM_OS2
  6. Use "LTAPGO11"
  7. Use "LTAPMO11"
  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 = "003"
  21.    AnimVersionNum =  2.32 
  22.    NumFramesThisAnim =  14 
  23.    AnimationType = "QuickDemo"
  24.    SampleFile = "sc8en.123"
  25.    AnimName = GetString( "0030000", 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( "0031001", IResult% )
  37.    StartAppFromSC AN_GEMINI, "sc8en.123"
  38.    Exit Sub
  39.  
  40. Case  2 
  41.    StepsText = GetString( "0031002", 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( "0031003", IResult% )
  59.    SetBubblePosforMenus
  60.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  61.    HideTextBubble
  62.    ChooseMenuItem  DtEditCopy_g
  63.    MoveToObj Center
  64.    DoMouse WM_LBUTTONDOWN%, 0
  65.    DoMouse WM_LBUTTONUP%, 0
  66.    Exit Sub
  67.  
  68. Case  5 
  69.    StepsText = GetString( "0031004", IResult% )
  70.    StartAppFromSC AN_AMIPRO, "sc7en.lwp"
  71.    Exit Sub
  72.  
  73. Case  6 
  74.    Delay 1000
  75.    X = RunScriptCommand (".GoToBookMark ""table""", ClientID, DeskwHdl.val )
  76.    Exit Sub
  77.  
  78. Case  7 
  79.    StepsText = GetString( "0031005", IResult% )
  80.    Delay 1000
  81.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  82.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  83.    HideTextBubble
  84.    Exit Sub
  85.  
  86. Case  8 
  87.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  88.    MoveToObj Center
  89.    DoMouse WM_LBUTTONDOWN%, 0
  90.    DoMouse WM_LBUTTONUP%, 0
  91.    Exit Sub
  92.  
  93. Case  9 
  94.    StepsText = GetString( "0031006", IResult% )
  95.    SetBubblePosforMenus
  96.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  97.    HideTextBubble
  98.    ChooseMenuItem Edit_Paste_Special_m
  99.    Exit Sub
  100.  
  101. Case  10 
  102.    StepsText = GetString( "0031007", IResult% )
  103.    WaitForDialog
  104.    X = DoWhereIs (DIALOG_CONTROL_M,"",501,0,0,0,ClientID)
  105.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  106.    HideTextBubble
  107.    MoveToObj Center
  108.    DoMouse WM_LBUTTONDOWN%, 0
  109.    DoMouse WM_LBUTTONUP%, 0
  110.    Exit Sub
  111.  
  112. Case  11 
  113.    StepsText = GetString( "0031008", IResult% )
  114.    X = DoWhereIs (DIALOG_CONTROL_M,"",503,0,0,0,ClientID)
  115.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  116.    HideTextBubble
  117.    Exit Sub
  118.  
  119. Case  12 
  120.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  121.    MoveToObj Center
  122.    DoMouse WM_LBUTTONDOWN%, 0
  123.    DoMouse WM_LBUTTONUP%, 0
  124.    Exit Sub
  125.  
  126. Case  13 
  127.    WaitForLWPNamedFrameToFill ""
  128.    Exit Sub
  129.  
  130. Case  14 
  131.    Delay 3000
  132.    Exit Sub
  133. End Select
  134. End Sub
  135.