home *** CD-ROM | disk | FTP | other *** search
/ POWERdrive for you 1998 April / PFY0498.BIN / demos / lssuite / lotus069.dsk / 004.LSS < prev    next >
Text File  |  1997-03-11  |  10KB  |  407 lines
  1. 'Copyright 1995-96, Lotus Development Corporation. All rights reserved.
  2. ' Keyboard independence added 11/03/97 Daniel K. Sullivan Lotus Dublin
  3. %if GEMINI
  4. Use "LTAPMN11"
  5. %elseif IBM_OS2
  6. Use "LTAPMO11"
  7. %end if
  8. %if GEMINI
  9. Use "LTAPSN11"
  10. %elseif IBM_OS2
  11. Use "LTAPSO11"
  12. %end if
  13.  
  14. Declare Public Function Pathslash (theString As String) As String
  15.  
  16. Sub Initialize
  17.    ClientMainWinClass = SMARTCENTER_MAINWINCLASS
  18.    ClientID = AN_SMARTCEN
  19.    ClientModName = SMARTCENTER_PERSMODNAME
  20.    ClientLotusAppID = "SMARTCENTER"
  21.    ShowMeModName = "004"
  22.    AnimVersionNum =  2.32 
  23.    NumFramesThisAnim =  45 
  24.    AnimationType = "QuickDemo"
  25.    SampleFile = "sc6en.lwp"
  26.    AnimName = GetString( "0040000", IResult% )
  27. End Sub
  28.  
  29. Public Sub ShowMe (theNextStep As Integer)
  30.  
  31. GetCursorPos TempPos
  32. CursorPosForStep(theNextStep) = TempPos
  33.  
  34. Select Case theNextStep
  35.  
  36. Case  1 
  37.    StepsText = GetString( "0041001", IResult% )
  38.    StartAppFromSC AN_AMIPRO, "sc6en.lwp"
  39.    Exit Sub
  40.  
  41. Case  2 
  42.    StepsText = GetString( "0041002", IResult% )
  43.    SetBubblePosforMenus
  44.    ShowTextBubble StepsText,  1,  0, NorthEast
  45.    HideTextBubble
  46.    ChooseMenuItem Merge_Letter_m
  47.    Exit Sub
  48.  
  49. Case  3 
  50.    StepsText = GetString( "0041003", IResult% )
  51.    X = DoWhereIs (DIALOG_CONTROL_M,"",25586,0,0,0,ClientID)
  52.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  53.    HideTextBubble
  54.    MoveToObj Center
  55.    DoMouse WM_LBUTTONDOWN%, 0
  56.    DoMouse WM_LBUTTONUP%, 0
  57.    Exit Sub
  58.  
  59. Case  4 
  60.    StepsText = GetString( "0041004", IResult% )
  61.    WaitForChildDialog 5000    'Wait for Browse dialog to appear...
  62.    X = DoWhereIs (DIALOG_CONTROL_M,"",1136,0,0,0,ClientID)
  63.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  64.    HideTextBubble
  65.    MoveToObj Center
  66.    DoMouse WM_LBUTTONDOWN%, 0
  67.    DoMouse WM_LBUTTONUP%, 0
  68.    SendCtrlKeys  "{HOME}{DOWN}{ENTER}", 100
  69.    Exit Sub
  70.  
  71. Case  5 
  72.    StepsText = GetString( "0041005", IResult% )
  73.    Delay 500
  74.    WhereIsDlgControl &H480,"",0  'LWP WhereIs has bug...
  75.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  76.    HideTextBubble
  77.    MoveToObj Center
  78.    DoMouse WM_LBUTTONDOWN%, 0
  79.    DoMouse WM_LBUTTONUP%, 0
  80.    Exit Sub
  81.  
  82. Case  6 
  83.    Delay 500
  84.    theLocalFileName$ = "sc3??.dbf"
  85. X = GetLocalSampleFileName (theLocalFileName$)
  86.  
  87. Dim Daniel As String
  88. Dim DanielK As String
  89.  
  90. Daniel = ReadClientRegistry ( "Approach", "Path" )
  91.  
  92. DanielK    = PathSlash (Daniel)
  93.  
  94. SendCtrlKeys DanielK + lcase(theLocalFileName$), 50
  95.  
  96.    Exit Sub
  97.  
  98. Case  7 
  99.    Delay 500
  100.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  101.    MoveToObj Center
  102.    DoMouse WM_LBUTTONDOWN%, 0
  103.    DoMouse WM_LBUTTONUP%, 0
  104.    Exit Sub
  105.  
  106. Case  8 
  107.    StepsText = GetString( "0041006", IResult% )
  108.    Delay 2000
  109.    WaitForChildDialog 20000        'Wait for Merge dialog to appear...
  110.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,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  9 
  119.    StepsText = GetString( "0041007", IResult% )
  120.    X = DoWhereIs (DIALOG_CONTROL_M,"",&H63EC,0,0,0,ClientID)
  121.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  122.    HideTextBubble
  123.    MoveToObj Center
  124.    DoMouse WM_LBUTTONDOWN%, 0
  125.    DoMouse WM_LBUTTONUP%, 0
  126.    Exit Sub
  127.  
  128. Case  10 
  129.    StepsText = GetString( "0041008", IResult% )
  130.    Delay 2000
  131.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  132.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  133.    HideTextBubble
  134.    Exit Sub
  135.  
  136. Case  11 
  137.    X = RunScriptCommand (".GoToBookMark ""address""", ClientID, DeskwHdl.val )
  138.    Exit Sub
  139.  
  140. Case  12 
  141.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  142.    MoveToObj Center
  143.    DoMouse WM_LBUTTONDOWN%, 0
  144.    DoMouse WM_LBUTTONUP%, 0
  145.    Exit Sub
  146.  
  147. Case  13 
  148.    Delay 2000
  149.    ' ***** Insert FIRST NAME field *****
  150.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  151.    MoveToObj Center
  152.    DoMouse WM_LBUTTONDOWN%, 0
  153.    DoMouse WM_LBUTTONUP%, 0
  154.    Exit Sub
  155.  
  156. Case  14 
  157.    StepsText = GetString( "0041009", IResult% )
  158.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  159.    HideTextBubble
  160.    Exit Sub
  161.  
  162. Case  15 
  163.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  164.    SendTextKeys  GetString( "0042015", IResult% ), 50
  165.    Exit Sub
  166.  
  167. Case  16 
  168.    Delay 500
  169.    ' ***** Insert LAST NAME field *****
  170.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  171.    MoveToObjRel  25 , 30 
  172.    DoMouse WM_LBUTTONDOWN%, 0
  173.    DoMouse WM_LBUTTONUP%, 0
  174.    Exit Sub
  175.  
  176. Case  17 
  177.    Delay 500
  178.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  179.    MoveToObj Center
  180.    DoMouse WM_LBUTTONDOWN%, 0
  181.    DoMouse WM_LBUTTONUP%, 0
  182.    Exit Sub
  183.  
  184. Case  18 
  185.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  186.    SendCtrlKeys  "{ENTER}", 100
  187.    Exit Sub
  188.  
  189. Case  19 
  190.    Delay 500
  191.    ' *****  Select ADDRESS field *****
  192.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  193.    MoveToObjRel  25 , 65 
  194.    DoMouse WM_LBUTTONDOWN%, 0
  195.    DoMouse WM_LBUTTONUP%, 0
  196.    Exit Sub
  197.  
  198. Case  20 
  199.    Delay 500
  200.    ' ***** Insert ADDRESS field *****
  201.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  202.    MoveToObj Center
  203.    DoMouse WM_LBUTTONDOWN%, 0
  204.    DoMouse WM_LBUTTONUP%, 0
  205.    Exit Sub
  206.  
  207. Case  21 
  208.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  209.    SendCtrlKeys  "{ENTER}", 100
  210.    Exit Sub
  211.  
  212. Case  22 
  213.    Delay 500
  214.    ' ***** Select CITY field *****
  215.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  216.    MoveToObjRel  25 , 90 
  217.    DoMouse WM_LBUTTONDOWN%, 0
  218.    DoMouse WM_LBUTTONUP%, 0
  219.    Exit Sub
  220.  
  221. Case  23 
  222.    Delay 500
  223.    ' ***** Insert CITY field *****
  224.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  225.    MoveToObj Center
  226.    DoMouse WM_LBUTTONDOWN%, 0
  227.    DoMouse WM_LBUTTONUP%, 0
  228.    Exit Sub
  229.  
  230. Case  24 
  231.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  232.    SendTextKeys  GetString( "0042024", IResult% ), 50
  233.    Exit Sub
  234.  
  235. Case  25 
  236.    Delay 500
  237.    ' ***** Select STATE field *****
  238.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  239.    MoveToObjRel  25 , 90 
  240.    DoMouse WM_LBUTTONDOWN%, 0
  241.    DoMouse WM_LBUTTONUP%, 0
  242.    Exit Sub
  243.  
  244. Case  26 
  245.    Delay 500
  246.    SendCtrlKeys  "{DOWN}", 100
  247.    Exit Sub
  248.  
  249. Case  27 
  250.    Delay 500
  251.    ' ***** Insert STATE field ******
  252.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  253.    MoveToObj Center
  254.    DoMouse WM_LBUTTONDOWN%, 0
  255.    DoMouse WM_LBUTTONUP%, 0
  256.    Exit Sub
  257.  
  258. Case  28 
  259.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  260.    SendTextKeys  GetString( "0042028", IResult% ), 50
  261.    Exit Sub
  262.  
  263. Case  29 
  264.    ' ***** Select ZIP field *****
  265.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  266.    MoveToObjRel  25 , 90 
  267.    DoMouse WM_LBUTTONDOWN%, 0
  268.    DoMouse WM_LBUTTONUP%, 0
  269.    Exit Sub
  270.  
  271. Case  30 
  272.    Delay 500
  273.    SendCtrlKeys  "{DOWN}", 100
  274.    Exit Sub
  275.  
  276. Case  31 
  277.    ' ***** Insert ZIP field *****
  278.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  279.    MoveToObj Center
  280.    DoMouse WM_LBUTTONDOWN%, 0
  281.    DoMouse WM_LBUTTONUP%, 0
  282.    Exit Sub
  283.  
  284. Case  32 
  285.    X = RunScriptCommand (".GoToBookMark ""name""", ClientID, DeskwHdl.val )
  286.    Exit Sub
  287.  
  288. Case  33 
  289.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  290.    Exit Sub
  291.  
  292. Case  34 
  293.    Delay 500
  294.    ' ***** Select NAME field *****
  295.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  296.    MoveToObj Center
  297.    DoMouse WM_LBUTTONDOWN%, 0
  298.    DoMouse WM_LBUTTONUP%, 0
  299.    Exit Sub
  300.  
  301. Case  35 
  302.    Delay 500
  303.    SendCtrlKeys  "{HOME}", 100
  304.    Exit Sub
  305.  
  306. Case  36 
  307.    ' ***** Insert NAME field *****
  308.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  309.    MoveToObj Center
  310.    DoMouse WM_LBUTTONDOWN%, 0
  311.    DoMouse WM_LBUTTONUP%, 0
  312.    Exit Sub
  313.  
  314. Case  37 
  315.    ' ***** Click DONE *****
  316.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F2,0,BAR_MAILMERGE_M,0,ClientID)
  317.    MoveToObj Center
  318.    DoMouse WM_LBUTTONDOWN%, 0
  319.    DoMouse WM_LBUTTONUP%, 0
  320.    Exit Sub
  321.  
  322. Case  38 
  323.    StepsText = GetString( "0041010", IResult% )
  324.    Delay 2000
  325.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  326.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  327.    HideTextBubble
  328.    MoveToObj Center
  329.    DoMouse WM_LBUTTONDOWN%, 0
  330.    DoMouse WM_LBUTTONUP%, 0
  331.    Exit Sub
  332.  
  333. Case  39 
  334.    StepsText = GetString( "0041011", IResult% )
  335.    X = DoWhereIs (DIALOG_CONTROL_M,"",&H6465,0,0,0,ClientID)
  336.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  337.    HideTextBubble
  338.    Exit Sub
  339.  
  340. Case  40 
  341.    StepsText = GetString( "0041012", IResult% )
  342.    Delay 1000
  343.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  344.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  345.    HideTextBubble
  346.    MoveToObj Center
  347.    DoMouse WM_LBUTTONDOWN%, 0
  348.    DoMouse WM_LBUTTONUP%, 0
  349.    Exit Sub
  350.  
  351. Case  41 
  352.    Delay 2000
  353.    SendCtrlKeys  "{TAB}", 100
  354.    Exit Sub
  355.  
  356. Case  42 
  357.    Delay 1000
  358.    SendCtrlKeys  "{ENTER}", 100
  359.    Exit Sub
  360.  
  361. Case  43 
  362.    Delay 1000
  363.    SendCtrlKeys  "{ENTER}", 100
  364.    Exit Sub
  365.  
  366. Case  44 
  367.    Delay 1000
  368.    SendCtrlKeys  "{ENTER}", 100
  369.    Exit Sub
  370.  
  371. Case  45 
  372.    Delay 2000
  373.    Exit Sub
  374. End Select
  375. End Sub
  376.  
  377.  
  378. '*====================================================================
  379. '* This function alters the "\" in the registry path such that it is 
  380. '* language keyboard independent
  381. '*
  382. '*
  383. '*====================================================================
  384. Public Function Pathslash (theString As String) As String
  385. On Error GoTo Pathslash_Error
  386.  
  387.     Dim retString As String
  388.     Dim XX As String
  389.     Dim ii As Integer
  390.  
  391.     For ii = 1 To Len(theString)
  392.         XX = Mid$(theString, ii, 1)
  393.      If XX = "\" Then
  394.          retString = retString + "^%"+chr$(63)
  395.         Else
  396.             retString = retString + XX
  397.         End If
  398.     Next
  399.     Pathslash = retString
  400.  
  401. 'Error processing...
  402. Exit Function
  403. Pathslash_Error:
  404. Print "Pathslash_Error: " + Error$ + " in line " + Str$(ERL)
  405.  
  406. End Function
  407.