home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / ENGLISH / LOTUS018.DSK / 003.LSS next >
Encoding:
Text File  |  1996-09-09  |  3.3 KB  |  125 lines
  1. %if GEMINI
  2. %elseif IBM_OS2
  3. %end if
  4. %if GEMINI
  5. Use "LTAPMN11"
  6. %elseif IBM_OS2
  7. Use "LTAPMO11"
  8. %end if
  9.  
  10. Sub Initialize
  11.    ClientMainWinClass = WORDPRO_MAINWINCLASS
  12.    ClientID = AN_AMIPRO
  13.    ClientModName = WORDPRO_PERSMODNAME
  14.    ClientLotusAppID = "WORDPRO"
  15.    ShowMeModName = "003"
  16.    AnimVersionNum =  2.3 
  17.    NumFramesThisAnim =  13 
  18.    AnimationType = "QuickDemo"
  19.    SampleFile = "la1n71??.lwp"
  20.    AnimName = GetString( "0030000", IResult% )
  21. End Sub
  22.  
  23. Public Sub ShowMe (theNextStep As Integer)
  24.  
  25. GetCursorPos TempPos
  26. CursorPosForStep(theNextStep) = TempPos
  27.  
  28. Select Case theNextStep
  29.  
  30. Case  1 
  31.    StepsText = GetString( "0031001", IResult% )
  32.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  33.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  34.    HideTextBubble
  35.    Exit Sub
  36.  
  37. Case  2 
  38.    StepsText = GetString( "0031002", IResult% )
  39.    SetBubblePosforMenus
  40.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  41.    HideTextBubble
  42.    ChooseMenuItem Edit_Find_Replace_Text_m
  43.    Exit Sub
  44.  
  45. Case  3 
  46.    StepsText = GetString( "0031003", IResult% )
  47.    X = DoWhereIs (BAR_CONTROL_M,"",25975,0,BAR_SEARCHREPLACE_M,0,ClientID)
  48.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  49.    HideTextBubble
  50.    SendTextKeys  GetString( "0032003", IResult% ), 50
  51.    Exit Sub
  52.  
  53. Case  4 
  54.    X = DoWhereIs (BAR_CONTROL_M,"",25975,0,BAR_SEARCHREPLACE_M,0,ClientID)
  55.    SendCtrlKeys  "{TAB}", 100
  56.    Exit Sub
  57.  
  58. Case  5 
  59.    X = DoWhereIs (BAR_CONTROL_M,"",25976,0,BAR_SEARCHREPLACE_M,0,ClientID)
  60.    SendTextKeys  GetString( "0032005", IResult% ), 50
  61.    Exit Sub
  62.  
  63. Case  6 
  64.    StepsText = GetString( "0031004", IResult% )
  65.    X = DoWhereIs (BAR_CONTROL_M,"",25977,0,BAR_SEARCHREPLACE_M,0,ClientID)
  66.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  67.    HideTextBubble
  68.    Exit Sub
  69.  
  70. Case  7 
  71.    StepsText = GetString( "0031005", IResult% )
  72.    X = DoWhereIs (BAR_CONTROL_M,"",25701,0,BAR_SEARCHREPLACE_M,0,ClientID)
  73.    ShowTextBubble StepsText,  .8,  .25, NorthEast
  74.    HideTextBubble
  75.    Exit Sub
  76.  
  77. Case  8 
  78.    StepsText = GetString( "0031006", IResult% )
  79.    X = DoWhereIs (BAR_CONTROL_M,"",25585,0,BAR_SEARCHREPLACE_M,0,ClientID)
  80.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  81.    HideTextBubble
  82.    Exit Sub
  83.  
  84. Case  9 
  85.    StepsText = GetString( "0031007", IResult% )
  86.    X = DoWhereIs (BAR_CONTROL_M,"",25701,0,BAR_SEARCHREPLACE_M,0,ClientID)
  87.    ShowTextBubble StepsText,  .25,  .25, NorthEast
  88.    HideTextBubble
  89.    MoveToObjRel  25 , 25 
  90.    DoMouse WM_LBUTTONDOWN%, 0
  91.    DoMouse WM_LBUTTONUP%, 0
  92.    Exit Sub
  93.  
  94. Case  10 
  95.    StepsText = GetString( "0031008", IResult% )
  96.    X = DoWhereIs (BAR_CONTROL_M,"",25701,0,BAR_SEARCHREPLACE_M,0,ClientID)
  97.    ShowTextBubble StepsText,  .25,  .75, NorthEast
  98.    HideTextBubble
  99.    MoveToObjRel  25 , 75 
  100.    DoMouse WM_LBUTTONDOWN%, 0
  101.    DoMouse WM_LBUTTONUP%, 0
  102.    Exit Sub
  103.  
  104. Case  11 
  105.    MoveToObjRel  25 , 350 
  106.    DoMouse WM_LBUTTONDOWN%, 0
  107.    DoMouse WM_LBUTTONUP%, 0
  108.    Exit Sub
  109.  
  110. Case  12 
  111.    SendTextKeys  GetString( "0032012", IResult% ), 50
  112.    Exit Sub
  113.  
  114. Case  13 
  115.    StepsText = GetString( "0031009", IResult% )
  116.    X = DoWhereIs (BAR_CONTROL_M,"",2,0,BAR_SEARCHREPLACE_M,0,ClientID)
  117.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  118.    HideTextBubble
  119.    MoveToObj Center
  120.    DoMouse WM_LBUTTONDOWN%, 0
  121.    DoMouse WM_LBUTTONUP%, 0
  122.    Exit Sub
  123. End Select
  124. End Sub
  125.