home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / WSTAR2 / DISK4 / OUTLINE.WM_ / OUTLINE.bin
Encoding:
Text File  |  1994-02-28  |  14.4 KB  |  214 lines
  1. REM Description:  Use outline numbering
  2. REM Filename: outline.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 AND frameType% <> 2 THEN
  14.     Message "The current frame must be a text or table 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. CONST Outline$ = "Outline"
  27. GetCurrentStyle currStyle$, local%
  28.  
  29. IF INSTR(currStyle$, Outline$) > 0 THEN 
  30.     level% = VAL(Right$(currStyle$,1))
  31. ELSE
  32.     level% = 0
  33. ENDIF
  34.  
  35. REM Use this dialog if we are using any outline style except for Outline 8
  36. BEGIN DIALOG Dialog1 250, 34, "Outline Numbering"
  37.     TEXT           4, 4, 140, 8, "Choose the desired outline level:"
  38.     PUSHBUTTON     70, 14, 60, 14, currStyle$, 4
  39.     PUSHBUTTON     136, 14, 60, 14, nextStyle$, 5
  40.     CANCELBUTTON   202, 14, 40, 14
  41.     PUSHBUTTON     4, 14, 60, 14, prevStyle$, 3
  42. END DIALOG
  43.  
  44. REM Use this dialog if we are not using an outline style
  45. BEGIN DIALOG Dialog2 250, 34, "Outline Numbering"
  46.     TEXT           4, 4, 140, 8, "Choose the desired outline level:"
  47.     PUSHBUTTON     70, 14, 60, 14, currStyle$, 4
  48.     PUSHBUTTON     136, 14, 60, 14, nextStyle$, 5
  49.     CANCELBUTTON   202, 14, 40, 14
  50. END DIALOG
  51.  
  52. SELECT CASE level%
  53.  
  54.     REM Not using any outline style
  55.     CASE 0
  56.         nextStyle$ = Outline$ + " 1"
  57.         ret% = Dialog(Dialog2)
  58.  
  59.     CASE 1
  60.         prevStyle$ = "BodyText"
  61.         nextStyle$ = Outline$ + " 2"
  62.         ret% = Dialog(Dialog1)
  63.         
  64.     CASE 2 TO 7
  65.         prevStyle$ = Outline$ + " " + str$(level% - 1)
  66.         nextStyle$ = Outline$ + " " + str$(level% + 1)
  67.         ret% = Dialog(Dialog1)
  68.  
  69.     CASE 8
  70.         prevStyle$ = Outline$ + " 7"
  71.         nextStyle$ = "BodyText"
  72.         ret% = Dialog(Dialog1)
  73.  
  74.     CASE ELSE
  75.         REM If we got here, something went wrong.
  76.         STOP
  77.  
  78. END SELECT
  79.  
  80. SELECT CASE ret%
  81.  
  82.     CASE 2
  83.         STOP
  84.  
  85.     REM Use previous style.
  86.     CASE 3
  87.         StyleApplyStyle prevStyle$, 0
  88.  
  89.     CASE 4
  90.         StyleApplyStyle currStyle$, 0
  91.  
  92.     CASE 5
  93.         IF ExistStyle(nextStyle$) = 1 THEN
  94.             StyleApplyStyle nextStyle$, 0
  95.         ELSE
  96.             StyleCreateStyle nextStyle$, currStyle$, 1
  97.             StyleApplyStyle nextStyle$, 0
  98.             GetStyleParagraph first%, left%, right%, above%, below%, align%, location%, span%, hyphen%, numHyph%, keep%, allowBreak%, widow%
  99.             adjust% = TO_DP("0.50", 0)
  100.             first% = first% + adjust%
  101.             left% = left% + adjust%
  102.             DefineStyle nextStyle$, 0
  103.             DefineStyleNextStyle nextStyle$
  104.             DefineStyleParagraph first%, left%, , , , , , , , , , , 
  105.             DefineStyleNumbering Outline$, level%+1, first% - adjust%,
  106.             EndDefineStyle 1
  107.         ENDIF
  108.  
  109. END SELECT
  110.  
  111.             
  112.  
  113. 
  114. *****  WARNING *****
  115. This is a WSWin macro file.
  116. Subsequent data is binary information and should not be modified.
  117. # MF # 1.0None762570696Xê╠&╗+
  118. 8àêë
  119. âêçèâ
  120. 8ìî
  121. ïìÄÅ
  122. 8    
  123. 8    æÉÆ
  124. 8+ òÉ ûÉöâòûùâ
  125. 8+Öÿ
  126. ïÖÜ¢
  127. 8
  128. 8₧Ç
  129. ¥₧£ƒ
  130. 8
  131. â£öíâ
  132. 8óö
  133. ¥ó£ú
  134. 8
  135. 8
  136. 8    ñÑ
  137. 8
  138. ªº¿⌐
  139. 8'
  140. .½Çºñâ½¼â
  141. 8'░Ç »º░▒▓
  142. «▒¡│¬
  143. 8!¡
  144. 3┤╡╢╖4 ╕╕╣║╗4╝╜╛╜º╕4┐╜╛╜└┴ 4    ┬╜├╜4╕╜╛╜─┼
  145. 8!+5
  146. 3╞╡╢╖4 ╕╕╣║╗4╝╜╛╜º╕4┐╜╛╜└┴ 4    ┬╜├╜
  147. 8+35
  148. 835ǭ
  149. 858
  150. â╟╔â╩
  151. 889"╠ñ╦    └╠
  152. 89:6£╞
  153. 8:<╚
  154. â╟Ç═â╬
  155. 8<=    ─╧
  156. 8=>"╤ñ╨    └╤
  157. 8>?6£┤
  158. 8?A╚â╟ö╘ââ╟╥╙â╒
  159. 8AB"╪ñ╓┘¡Ç
  160. ╫┘┌█"▄╪┌    ─▄
  161. 8BC"▌ñ╓▐¡Ç
  162. ╫▐▀α"ß▌▀    └ß
  163. 8CD6£┤
  164. 8DF╚
  165. â╟║Γâπ
  166. 8FG"σñΣ    ─σ
  167. 8GH    └╧
  168. 8HI6£┤╚
  169. 8IM
  170. 8MQµ£
  171. 8QS
  172. âµöΦâΘ
  173. 8ST
  174. 8TWτ
  175. âµ┼Ωâδ
  176. 8WXφ
  177. ∞─φε
  178. 8XZτ
  179. âµ╕∩â≡
  180. 8Z[±
  181. ∞º±≥
  182. 8[]τ
  183. âµ┴≤â⌠
  184. 8]](
  185. ⌡└≈°
  186. â≈Ç∙â
  187. 8](_·
  188. ∞└·√÷
  189. 8_a²Ç ⁿ└º²■
  190. 8ab 
  191. ∞└ 
  192. 8bc     
  193.   
  194. 8cd 
  195. 8de
  196. 8ef
  197. 8fg
  198. └
  199. 8gh└
  200. 8hi 
  201. 8ij¡Ç ñ !
  202. 8jk#Ç"#$'~∩ª&&&&&&&&&&&&&&&&&&&&.▀U.▀U.▀U .▀U-.▀U5.▀U;.▀UA.▀UN.▀U^.▀U    l.▀U
  203. z.▀U ê.▀U û.▀Uñ.▀U▓.▀U╢.▀U╣.▀U╜.▀U└.▀U┬.▀U─.▀U╞.▀U╔.▀U╠.▀U╧.▀U╥.▀U╘.▀U╓.▀U┌.▀U▄.▀U▐.▀Uα.▀U Γ.▀U!Σ.▀U"Θ.▀U#∞.▀U$≡.▀U%⌡.▀U&ⁿ.▀U'/▀U(
  204. /▀U)/▀U*/▀U+/▀U,"/▀U-(/▀U.-/▀U/3/▀U06/▀U1;/▀U2@/▀U3B/▀U4E/▀U5J/▀U6N/▀U7T/▀U8Y/▀U9`/▀U:g/▀U;l/▀U<o/▀U=w/▀U>y/▀U?{/▀U@/▀UAê/▀UBî/▀UCÅ/▀UDù/▀UE₧/▀UFú/▀UG¡/▀UH┤/▀UI╣/▀UJ╜/▀UK┬/▀UL╟/▀UM═/▀UN╤/▀UO╒/▀UP▄/▀UQπ/▀URΩ/▀US≡/▀UT≈/▀UU0▀UV0▀UW0▀UX$0▀UY10▀UZ:0▀U[G0▀U\P0▀U]X0▀U^`0▀U_h0▀U`q0▀Uav0▀Ub{0▀UcÇ0▀Udç0▀UeÄ0▀Ufö0▀Ug¢0▀Uh¥0▀Uió0▀Uj¿0▀Uk«0▀Ul╡0▀Um╛0▀Un╟0▀Uo╦0▀Up╙0▀Uq╫0▀Ur▄0▀UsΓ0▀UtΦ0▀Uuε0▀Uv⌠0▀Uw∙0▀Ux■0▀Uy1▀Uz1▀U{1▀U|1▀U}ÅU  ÅU+ÅU+    ÅUÅUÅU  ÅU ÅU
  205. ë,ÅU  H1ÅU+      4ÅU      9ÅU     >ÅU  HCÅUçKÅU+      ÄÅU      ôÅU  ÿÅU     ¥ÅU          ¿ÅUç╡ÅU     ║ÅU  ¿┐ÅU+  ┴ÅU  ╞ÅU  ╦ÅU  ¿╨ÅU+      ÅU          ÅU  ÅU     ÅU          ÅUç'ÅU  -ÅU     3ÅU   8ÅU   =ÅU  CÅU     IÅU
  206.           RÅU+      \ÅUA
  207. lÅU
  208.           wÅU          ~ÅU     äÅU  îëÅU  ÅÅU  |öÅU          ¢ÅUçƒÅU
  209. ëªÅU  ¼ÅU      ▓ÅU     ╕ÅU     ╛ÅU      ╞ÅU+  ·╩ÅU+  "═ÅU+      ßÅU+  πÅU+  îτÅU+  ΘÅU+      ÅU+  FÅU+  ÅU+  <ÅU+  êÅU
  210.           %ÅU+  'ÅU+  ╩+ÅU+  (.ÅU
  211.           9ÅU+  ;ÅU      CÅU  IÅU  ≥NÅU  hTÅU  ₧ZÅU+      _ÅU      eÅU  ░kÅU  ÷qÅU+      |ÅU+      üÅU      çÅU+  ëÅU  ÅÅU  òÅU  ÿ¢ÅU+      ƒÅU
  212. ëñÅU      ¬ÅU  ░ÅU      ╢ÅU     ╝ÅU      ┬ÅU      ╚ÅU  ╬ÅU      ╘ÅU     ┌ÅU      αÅU  ¬µÅU  µ∞ÅU+      ±ÅU      ≈ÅU  ²ÅU  :ÅU      ÅU  8ÅU  JÅU  rÅUA%+ÅU  1ÅU     7ÅU  ä=ÅU  ¼CÅU  IÅU     OÅU  ╛UÅU  :[ÅUçfÅU  :lÅU  rÅU     xÅU  ■~ÅU  äÅU     èÅUA!¢ÅU  íÅU     ºÅU  ¡ÅU     │ÅUA(┼ÅU          ╠ÅU          ╥ÅU          ┘ÅU          αÅU          τÅU          εÅU          °ÅU          ■ÅU          ÅU          ÅU          ÅU          !ÅU          (ÅU      .ÅU          6ÅUç6<ÅU+      CÅU      IÅU  OÅU     UÅUA9aÅU  gÅU     mÅUA<éÅU     êÅUA>¥ÅU  úÅU     ⌐ÅUAL╛ÅU  ─ÅU  ╩ÅU     ╨ÅUAQ▀ÅU  σÅU     δÅUφÅU????01CANCELERRORNUM[T1]
  213. GETDOCNAME$[L1]""[T2][T3][L2]MESSAGE"Please create a new document or open an existing document first."[T4][T5][T6]FRAMETYPE%GETFRAMETYPE[T7][L3]2[T8][T9][L4]"The current frame must be a text or table frame."[T10][T11][T12]RET%VIEWEDITMODE[T13][T14][L5][L6][T15][T16]OUTLINE$"Outline"GETCURRENTSTYLECURRSTYLE$LOCAL%[T17][L7][T18][L8]LEVEL%VALRIGHT$[T19][T20][T21][T22]DIALOG125034"Outline Numbering"41408"Choose the desired outline level:"701460136NEXTSTYLE$520240PREVSTYLE$3DIALOG2[T23][L9][L10][L11]" 1"[T24][L12][L13]"BodyText"" 2"[T25]7[L14][L15][L16]" "STR$[T26][T27][T28][T29][T30][T31][T32][T33][T34][T35][L17][L18]" 7"[T36][T37][L19][L20][L21][L22][L23]STYLEAPPLYSTYLE[T38][T39][L24][L25][T40][T41][L26][L27]EXISTSTYLE[L28][T42][T43][L29][T44][T45]STYLECREATESTYLE[T46][T47][T48][T49]GETSTYLEPARAGRAPHFIRST%LEFT%RIGHT%ABOVE%BELOW%ALIGN%LOCATION%SPAN%HYPHEN%NUMHYPH%KEEP%ALLOWBREAK%WIDOW%[T50]ADJUST%TO_DP"0.50"[T51][T52][T53]DEFINESTYLE[T54][T55]DEFINESTYLENEXTSTYLE[T56]DEFINESTYLEPARAGRAPH[T57][T58]DEFINESTYLENUMBERING[T59][T60][T61]ENDDEFINESTYLE[T62][T63]
  214.