home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / SMARTCTR / 003.LSS < prev    next >
Text File  |  1997-10-24  |  3KB  |  132 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.    Exit Sub
  64.  
  65. Case  5 
  66.    StepsText = GetString( "0031004", IResult% )
  67.    StartAppFromSC AN_AMIPRO, "sc7en.lwp"
  68.    Exit Sub
  69.  
  70. Case  6 
  71.    Delay 1000
  72.    X = RunScriptCommand (".GoToBookMark ""table""", ClientID, DeskwHdl.val )
  73.    Exit Sub
  74.  
  75. Case  7 
  76.    StepsText = GetString( "0031005", IResult% )
  77.    Delay 1000
  78.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  79.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  80.    HideTextBubble
  81.    Exit Sub
  82.  
  83. Case  8 
  84.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  85.    MoveToObj Center
  86.    DoMouse WM_LBUTTONDOWN%, 0
  87.    DoMouse WM_LBUTTONUP%, 0
  88.    Exit Sub
  89.  
  90. Case  9 
  91.    StepsText = GetString( "0031006", IResult% )
  92.    SetBubblePosforMenus
  93.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  94.    HideTextBubble
  95.    ChooseMenuItem Edit_Paste_Special_m
  96.    Exit Sub
  97.  
  98. Case  10 
  99.    StepsText = GetString( "0031007", IResult% )
  100.    WaitForDialog
  101.    X = DoWhereIs (DIALOG_CONTROL_M,"",501,0,0,0,ClientID)
  102.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  103.    HideTextBubble
  104.    MoveToObj Center
  105.    DoMouse WM_LBUTTONDOWN%, 0
  106.    DoMouse WM_LBUTTONUP%, 0
  107.    Exit Sub
  108.  
  109. Case  11 
  110.    StepsText = GetString( "0031008", IResult% )
  111.    X = DoWhereIs (DIALOG_CONTROL_M,"",503,0,0,0,ClientID)
  112.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  113.    HideTextBubble
  114.    Exit Sub
  115.  
  116. Case  12 
  117.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  118.    MoveToObj Center
  119.    DoMouse WM_LBUTTONDOWN%, 0
  120.    DoMouse WM_LBUTTONUP%, 0
  121.    Exit Sub
  122.  
  123. Case  13 
  124.    WaitForLWPNamedFrameToFill ""
  125.    Exit Sub
  126.  
  127. Case  14 
  128.    Delay 3000
  129.    Exit Sub
  130. End Select
  131. End Sub
  132.