home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / WSTAR2 / DISK4 / FINDSTY.WM_ / FINDSTY.bin
Encoding:
Text File  |  1994-02-28  |  7.5 KB  |  73 lines
  1. REM Description: Find next style tag
  2. REM Filename: findsty.wmc
  3. REM Created by: Steve Wylie - 11/08/93
  4.  
  5. REM Can't run if no document open
  6. IF GetDocName$() = "" THEN
  7.     MESSAGE "Please create a new document or open an existing document first."
  8.     STOP
  9. ENDIF
  10.  
  11. REM Can't run in a graphic or table frame
  12. frameType% = GetFrameType()
  13. IF frameType% <> 0 THEN
  14.     Message "The current frame must be a text frame."
  15.     STOP
  16. ENDIF
  17.  
  18. REM Can't run in frame mode
  19. ret% = ViewEditMode(1)
  20. IF ret% = 2 THEN
  21.     ret% = ViewEditMode(2)
  22.     BEEP
  23.     STOP
  24. ENDIF
  25.  
  26. retint% = EditFind( "<St ", 0, 0, , 1, 1, )
  27. if retint% = 0 then 
  28.     Message("No style tag found.")
  29.     Stop
  30. endif
  31.  
  32. REM We have to move the insertion point right and then left again to go beyond the font tag.
  33. CharRight 1, 0, 
  34. CharLeft 1, 0,
  35.  
  36. 
  37. *****  WARNING *****
  38. This is a WSWin macro file.
  39. Subsequent data is binary information and should not be modified.
  40. # MF # 1.0None762570381┌
  41. Ü}
  42. 8àêë
  43. âêçèâ
  44. 8ìî
  45. ïìÄÅ
  46. 8    
  47. 8    
  48. æÉÆ
  49. 8
  51.  âÉöâ
  52. 8
  53. ûò
  54. ïûùÿ
  55. 8
  56. 8¢Ç
  57. ܢ֣
  58. 8
  59. âÖ₧ƒâ
  60. 8á₧
  61. ÜáÖí
  62. 8
  63. 8
  64. 8Ññªº⌐ǬÇúѪº⌐¬ó½
  65. 8
  66. âó¡â
  67. 8    »«
  68. ï»░▒
  69. 8
  70. 8"│Ç┤ ▓│┤╡
  71. 8"#╖Ç╕ ╢╖╕╣╝~π8╗╗╗╗╗╗╗╗╗╗╗╗╗╗╗╗╗╗╗╗.WP.WP.WP .WP-.WP5.WP;.WPA.WPN.WP^.WP    l.WP
  72. z.WP ê.WP û.WP
  73. ñ.WP▓.WP╢.WP╣.WP╜.WP└.WP┬.WP─.WP╞.WP╔.WP╠.WP╧.WP╥.WP╘.WP╓.WP┌.WP▄.WP▐.WPα.WP Γ.WP!Σ.WP"Θ.WP#∞.WP$≡.WP%⌡.WP&ⁿ.WP'/WP(
  74. /WP)/WP*/WP+/WP,"/WP-(/WP.-/WP/3/WP06/WP1;/WP2@/WP3B/WP4E/WP5J/WP6N/WP7T/WP8Y/WP9`/WP:g/WP;l/WP<o/WP=w/WP>y/WP?{/WP@/WPAê/WPBî/WPCÅ/WPDù/WPE₧/WPFú/WPG¡/WPH┤/WPI╣/WPJ╜/WPK┬/WPL╟/WPM═/WPN╤/WPO╒/WPP▄/WPQπ/WPRΩ/WPS≡/WPT≈/WPU0WPV
  75. 0WPW0WPX$0WPY10WPZ:0WP[G0WP\P0WP]X0WP^`0WP_h0WP`q0WPav0WPb{0WPcÇ0WPdç0WPeÄ0WPfö0WPg¢0WPh¥0WPió0WPj¿0WPk«0WPl╡0WPm╛0WPn╟0WPo╦0WPp╙0WPq╫0WPr▄0WPsΓ0WPtΦ0WPuε0WPv⌠0WPw∙0WPx■0WPy1WPz1WP{1WP|1WP}OM  OM+OM+    OMOMOM  OM OM
  76. ë,OM  H1OM+      4OM      9OM     >OM  HCOMçKOM+      ÄOM      ôOM  ÿOM     ¥OM          ¿OMç╡OM     ║OM  ÿ┐OM  ÿ─OM+      εOM      ≤OM  °OM     ■OM          OMçOM  OM     OM  ⁿ!OM+  #OM  ⁿ(OM  .OM     4OM          <OMç
  77. EOM+      LOM      ROM  XOM  ^OM  dOM  jOM  pOM     7vOM  x{OM  xÇOM+      ûOM      £OM  óOM     ¿OMA▓OM  ╕OM  ╛OM     ─OMA═OM  ╙OM  ┘OM     ▀OMßOM????01CANCELERRORNUM[T1]
  78. GETDOCNAME$[L1]""[T2][T3][L2]MESSAGE"Please create a new document or open an existing document first."[T4][T5][T6]FRAMETYPE%GETFRAMETYPE[T7][L3][L4]"The current frame must be a text frame."[T8][T9][T10]RET%VIEWEDITMODE[T11][T12][L5]2[L6][T13][T14]RETINT%EDITFIND"<St "[T15][T16][T17][T18][T19][T20][T21][L7][L8]"No style tag found."[T22][T23][T24]CHARRIGHT[T25][T26][T27]CHARLEFT[T28][T29][T30]
  79.