home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Information Management / Wingz / DG (.txt) < prev    next >
Encoding:
Wingz Script  |  1989-02-10  |  33.9 KB  |  618 lines  |  [WZSC/WNGZ]
  1. WZSCWNGZ
  2. WNGZWZSC01b1
  3. Cancel@
  4. dg:val1=ctvalue(3,0)
  5. All Errors
  6. Total Errors
  7. Cancel@
  8. dg:str1 = ctstring(4,0)
  9. Cancel@
  10. nrepaint off dg:doit=1 dg:fgcol=ctvalue(3,0) dg:bgcol=ctvalue(4,0)
  11.             dg:patt=ctvalue(5,0) dg:val1=ctvalue(6,0)
  12. Foreground
  13. [select control 5 pattern picker fg ctvalue(3,0)
  14.                 select control 7 shadow fg ctvalue(3,0)
  15. Background
  16. [select control 5 pattern picker bg ctvalue(4,0)
  17.                 select control 7 shadow bg ctvalue(4,0)
  18. ,select control 7 shadow pattern ctvalue(5,0)
  19. Shadow Strength
  20. -select control 7 shadow strength ctvalue(6,0)
  21. 3D chart shadow fg 
  22. 3D chart shadow bg 
  23. 3D chart shadow pattern 
  24. 3D chart shadow strength 
  25. Cancel@
  26. Frepaint off dg:doit = 1 dg:str1 = ctstring(4,0) dg:val1 = ctvalue(5,0)
  27.     Object #@
  28. Series width
  29. object name "
  30. series width 
  31. Cancel@
  32. prepaint off dg:doit = 1 dg:str1=ctstring(4,0) dg:val1=ctvalue(5,0) dg:val2 = ctvalue(6,0) dg:val3 = ctvalue(7,0)
  33.     Object #@
  34. Series width
  35. Width to height
  36. Depth to height
  37. object name "
  38. series width 
  39. 3D width height 
  40. 3D depth height 
  41. Cancel@
  42. repaint off dg:doit=1 dg:str1=ctstring(4,0) dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,0) dg:val3=ctvalue(7,0)
  43.                 dg:str2=ctstring(8,0)
  44.     Object #@
  45. Non@e
  46.     Ascending
  47. Descending
  48. Sorting@
  49. N@one
  50.     By @Range
  51. Weighting@
  52. Hselect control 8 if ctvalue(6,3) ungrey control else grey control end if
  53. Start An@gle
  54. Weight Range
  55. object name "
  56. pie sorting off
  57. pie sorting ascending
  58. pie sorting descending
  59. pie weighting off
  60. pie weighting sum
  61. pie weight range 
  62. pie starting angle 
  63. Cancel@
  64. ]repaint off dg:doit = 1 dg:str1 = ctstring(4,0) dg:val1 = ctvalue(5,1) dg:val2 = ctvalue(6,0)
  65.     Object #@
  66.     Smoothing
  67. Hselect control 6 if ctvalue(5,1) ungrey control else grey control end if
  68.     Se@gments
  69. object name "
  70. surface smoothing 
  71. surface smoothing 0
  72. Cancel@
  73. repaint off dg:doit = 1 dg:str1=ctstring(4,0) dg:val1=ctvalue(5,0)
  74.             dg:val2 = ctvalue(6,0) dg:val3=ctvalue(7,1) dg:val4=ctvalue(7,2) dg:val5=ctvalue(8,0)
  75.     Object #@
  76. Width to height
  77. Depth to height
  78.     Smoothing
  79. Hselect control 8 if ctvalue(7,2) ungrey control else grey control end if
  80.     Se@gments
  81. object name "
  82. 3D width height 
  83. 3D depth height 
  84. surface axes on
  85. surface axes off
  86. surface smoothing 
  87. surface smoothing 0
  88. Cancel@
  89. repaint off dg:doit = 1 dg:str1=ctstring(4,0) dg:val1=ctvalue(5,0)
  90.             dg:val2 = ctvalue(6,0) dg:val3=ctvalue(7,1) dg:val4=ctvalue(8,1) dg:val5=ctvalue(9,1)
  91.             dg:val6 = ctvalue(10,1) dg:val7=ctvalue(11,1) dg:val8=ctvalue(12,0)
  92.     Object #@
  93. Width to height
  94. Depth to height
  95. Clipping
  96. Yselect control 9,10 if ctvalue(8,1) ungrey control else uncheck box 1 grey control end if
  97.     Con@tours
  98.     Smoothing
  99. Jselect control 12 if ctvalue(11,1) ungrey control else grey control end if
  100.     Se@gments
  101. object name "
  102. 3D width height 
  103. 3D depth height 
  104. surface axes on
  105. surface axes off
  106. surface base on
  107. surface base off
  108. surface contours on
  109. surface contours off
  110. surface clipping on
  111. surface clipping off
  112. surface smoothing 
  113. surface smoothing 0
  114. Cancel@
  115. dg:str1 = ctstring(3,0)
  116. Password
  117. Replace
  118. Replace @All
  119. Cancel@
  120. repaint off dg:doit=1 dg:edtype=ctvalue(5,0) dg:edcase=ctvalue(6,1) dg:edword=ctvalue(6,2)
  121.                     dg:edwrap=ctvalue(6,3) dg:edback=ctvalue(6,4) dg:edfind=ctstring(8,0) dg:edrep=ctstring(10,0)
  122. repaint off dg:doit = 2 dg:edtype=ctvalue(5,0) dg:edcase=ctvalue(6,1) dg:edword=ctvalue(6,2)
  123.                     dg:edwrap=ctvalue(6,3) dg:edback=ctvalue(6,4) dg:edfind=ctstring(8,0) dg:edrep=ctstring(10,0)
  124.                     quit dialog box
  125. repaint off dg:doit = 3 dg:edtype=ctvalue(5,0) dg:edcase=ctvalue(6,1) dg:edword=ctvalue(6,2)
  126.                     dg:edwrap=ctvalue(6,3) dg:edback=ctvalue(6,4) dg:edfind=ctstring(8,0) dg:edrep=ctstring(10,0)
  127.                     quit dialog box
  128. F@ind
  129. Find/Re@place
  130.     Goto Line
  131. call dg:frupdate()
  132. Case Sensitive
  133. Entire Word
  134. Wrap-around
  135.     Backwards
  136. String to find?
  137. Replace with what?
  138. goto line 
  139. replace
  140. replace all
  141.  field text "5
  142.  with "
  143.  options "5
  144. Cancel@
  145. Mrepaint off dg:doit=1 dg:findtype = ctvalue(3, 0) dg:findstr = ctstring(4, 0)
  146. Value
  147. Formula
  148. Criteria
  149. C@ell
  150. Find@
  151. find text "
  152. find value 
  153. find formula text "
  154. find criteria 
  155. select range 
  156. String to find?
  157. String to find?
  158. Line number?
  159. Cancel@
  160. ,repaint off dg:doit=1 dg:val1 = ctvalue(3,0)
  161. Column @Width
  162. column width 
  163. Cancel@
  164. ,repaint off dg:doit=1 dg:val1 = ctvalue(3,0)
  165. Row @Height
  166. row height 
  167. dg:str1=ctstring(3,0)
  168. "Invalid file name, enter new name.
  169. Cancel@
  170. -repaint off dg:doit=1 dg:str1 = ctstring(4,0)
  171. Business
  172.     Date/Time
  173. Logical
  174. Statistical
  175.     D@atabase
  176. Sp@readsheet
  177. N@umeric
  178. O@perators
  179. Names
  180. call dg:pasteupdate()
  181. \on mousedoubleclick dg:doit = 1 dg:str1 = ctstring(4,0) quit dialog box end mousedoubleclick
  182. put text "
  183. Name@
  184.  cells, 5
  185.  formulas, 5
  186. Modified
  187. Not modified
  188. , Circular references
  189. , Needs to be recalculated
  190. Cancel@
  191. irepaint off dg:doit=1 dg:str1 = ctstring(3,0) dg:str2 = ctstring(4,0)
  192.                                               dg:val1 = ctvalue(6,1)
  193. Title
  194.     Object #@
  195. T@ransparent
  196. hide control name
  197. show control name "
  198. hide control title
  199. show control title "
  200. invisible button
  201. visible button
  202. Cancel@
  203. 1repaint off call dg:fieldupdate() quit dialog box
  204. Title
  205.     Object #@
  206. Margins
  207. Right
  208. Bottom
  209. Para. @Indent
  210. Loc@ked
  211. Scroll bar
  212.     Word wrap
  213. C@ell note
  214. T@abs
  215. Sin@gle
  216. Double
  217.     1.5 lines
  218. Fixed Height
  219. E@xtra Leading
  220. Line Space@
  221. call dg:fieldup()
  222. L@eading
  223. object name "
  224. hide control title
  225. show control title "
  226. left indent 
  227.  points5
  228. right indent 
  229.  points5
  230. field top margin 
  231.  points5
  232. field bottom margin 
  233.  points5
  234. indent 
  235.  points5
  236. lock field text
  237. unlock field text
  238. show scroll bar field
  239. hide scroll bar field
  240. field word wrap on
  241. field word wrap off
  242. field note
  243. field not note
  244. field tabs every 
  245.  points5
  246. line spacing single
  247. line spacing double
  248. line spacing 1.5
  249. line spacing fixed 
  250.  points5
  251. line spacing single plus 
  252.  points5
  253. Cancel@
  254. drepaint off dg:doit=1 dg:str1 = ctstring(4,0) dg:val1 = ctvalue(5,0)
  255.                                     dg:val2 = ctvalue(6,1)
  256.     Object #@
  257.     Poly@line
  258. Poly@gon
  259. Smooth
  260. object name "
  261. polyline
  262. polygon
  263. poly smoothing on
  264. poly smoothing off
  265. Cancel@
  266. -repaint off dg:doit=1 dg:str1 = ctstring(4,0)
  267.     Object #@
  268. object name "
  269. Cancel@
  270. .repaint off dg:doit = 1 dg:val1 = ctvalue(3,0)
  271.  select control 5 repaint control
  272.     Elevation
  273. )on repaint call dg:paintpie() end repaint
  274. elevation 
  275. Cancel@
  276. repaint off dg:doit = 1 dg:val1 = ctvalue(3,0) dg:val2 = ctvalue(4,0) dg:val3 = ctvalue(5,0)
  277.                     dg:val4 = ctvalue(6,0) dg:val5 = ctvalue(7,0)
  278.  select control 8 repaint control
  279.  select control 8 repaint control
  280. Vanishing @X
  281.  select control 8 repaint control
  282. Vanishing @Y
  283.  select control 8 repaint control
  284. Distance
  285.  select control 8 repaint control
  286. select control 5 number wheel position mousex()*100/2620
  287.               select control 6 number wheel position 100-mousey()*100/2620
  288.               select control 8 repaint control
  289.               on repaint call dg:repview() end repaint
  290.     Elevation
  291. Rotation
  292. elevation 
  293.     rotation 
  294. vanishing x 
  295. vanishing y 
  296.     distance 
  297. on repaint paint red bar dg:val4, dg:val5, dg:val6
  298.             paint green bar dg:val4, dg:val5, dg:val6
  299.             paint blue bar dg:val4, dg:val5, dg:val6
  300.             paint sample box dg:val4, dg:val5, dg:val6 end repaint
  301. Geneva
  302. call dg:dobars(1) paint sample box ctvalue(1, 0), dg:val5, dg:val6
  303.                     on mousestilldown call dg:dobars(1) end mousestilldown
  304.                     on mousemove paint sample box ctvalue(1, 0), dg:val5, dg:val6 end mousemove
  305. Geneva
  306. Green
  307. call dg:dobars(2) paint sample box dg:val4, ctvalue(2, 0), dg:val6
  308.                     on mousestilldown call dg:dobars(2) end mousestilldown
  309.                     on mousemove paint sample box dg:val4, ctvalue(2, 0), dg:val6 end mousemove
  310. Geneva
  311. call dg:dobars(3) paint sample box dg:val4, dg:val5, ctvalue(3, 0)
  312.                     on mousestilldown call dg:dobars(3) end mousestilldown
  313.                     on mousemove paint sample box dg:val4, dg:val5, ctvalue(3, 0) end mousemove
  314. Cancel@
  315. Rdg:colpikit=1 dg:val1 = ctvalue(1,0) dg:val2 = ctvalue(2,0) dg:val3 = ctvalue(3,0)
  316. call dg:redo()
  317. text color 5
  318. Cancel@
  319. qrepaint off dg:doit=1 dg:val1 = ctvalue(3,0) dg:val2 = ctvalue(4,0) dg:val3 = ctvalue(5,0) dg:val4 = ctvalue(6,0)
  320. Color
  321. select control 4 line picker fg ctvalue(3,0)
  322.                     select control 5 symbol picker color ctvalue(3,0)
  323.                     select control 7 repaint control
  324.  select control 7 repaint control
  325.  select control 7 repaint control
  326.  select control 7 repaint control
  327. on repaint symbol color ctvalue(3,0)
  328.                     symbol width ctvalue(4,0) symbol size ctvalue(6,0) points 
  329.                     symbol type ctvalue(5,0) draw symbol (0.5, 0.5) end repaint
  330. symbol color 
  331. symbol width 
  332. symbol type 
  333. symbol size 
  334.  points5
  335. Cancel@
  336. repaint off dg:doit=1 dg:val1 = ctvalue(3,1) dg:str1 = ctstring(4,0) dg:str2 = ctstring(5,0)
  337.                     dg:str3 = ctstring(6,0) dg:str4 = ctstring(7,0) dg:str5 = ctstring(8,0)
  338. Manual Scaling
  339. Nselect control 4,5,6,7 if ctvalue(3,1) ungrey control else grey control end if
  340. Mi@nimum
  341. Ma@ximum
  342. Ma@jor Div.
  343. Mino@r Div.
  344. Log Base
  345. manual scaling from 
  346.  to 5
  347.  with 5
  348.  major and 5
  349.  minor divisions5
  350. automatic scaling
  351. axis log base 
  352. Cancel@
  353. jrepaint off dg:doit=1 dg:val1=ctvalue(3,0) dg:val2=ctvalue(4,1) dg:val3=ctvalue(5,1) dg:str1=ctstring(6,0)
  354. La@yer
  355. Type@
  356. Hide Legend Entry
  357. S@tack
  358. C@olumn
  359. series type bar
  360. series type line
  361. series type layer
  362. series type step
  363. hide series legend
  364. show series
  365. stack series
  366. unstack series
  367. series column 
  368. Cancel@
  369. Erepaint off dg:doit=1 dg:val1 = ctvalue(3, 0) dg:val2 = ctvalue(4, 0)
  370. Center
  371. Exterior
  372. Display@
  373. Value
  374. Percent
  375. Type@
  376. series label text
  377. series label value
  378. series label percent
  379. hide series label
  380. series label base
  381. series label centered
  382. series label exterior
  383. 9Worksheet was opened without permission to edit password.
  384. >on repaint frame rectangle (0.0, 0.375) (1.0, 1.0) end repaint
  385. Cancel@
  386. wrepaint off dg:doit=1 dg:str1 = ctstring(3, 0) dg:str2 = ctstring(4, 0) dg:val1 = ctvalue(5, 1) dg:val2 = ctvalue(6, 1)
  387. Password @1
  388. Password @2
  389.     Read Only
  390. Encrypt File
  391. password 1 "
  392. " password 2 "5
  393.  read only5
  394. encryption on
  395. encryption off
  396. Cancel@
  397. .repaint off dg:doit=1 dg:str1 = ctstring(3, 0)
  398. Text @Size
  399. text size 
  400. Cancel@
  401. .repaint off dg:doit=1 dg:str1 = ctstring(3, 0)
  402. Scale %
  403. window scale 
  404. Cancel@
  405. `repaint off dg:doit=1 dg:str1 = ctstring(3, 0) dg:str2 = ctstring(4, 0) dg:str3 = ctstring(5, 0)
  406. Max Change
  407.     Test Cell
  408. Max @Iterations
  409. iterate until 
  410.  changes less than 5
  411.  max 5
  412.  times5
  413. iterate 
  414.  times5
  415. Cancel@
  416. .repaint off dg:doit=1 dg:str1 = ctstring(3, 0)
  417.     Precision
  418. precision 
  419. Cancel@
  420. =repaint off dg:str1 = ctstring(3, 0) dg:str2 = ctstring(4, 0)
  421.     Reference
  422. name range "
  423. " as "5
  424. Cancel@
  425. Cancel@
  426. \repaint off dg:doit=1 dg:fgcol = ctvalue(3,0) dg:bgcol = ctvalue(4,0) dg:patt = ctvalue(5,0)
  427. Foreground
  428. 0select control 5 pattern picker fg ctvalue(3, 0)
  429. Background
  430. 0select control 5 pattern picker bg ctvalue(4, 0)
  431.  fg 5
  432.  bg 5
  433.      pattern 5
  434. plot interior
  435.     base side
  436. base top
  437. Cancel@
  438. \repaint off dg:doit=1 dg:fgcol = ctvalue(3,0) dg:bgcol = ctvalue(4,0) dg:patt = ctvalue(5,0)
  439. Foreground
  440. \select control 5 pattern picker fg ctvalue(3,0) select control 6 line picker fg ctvalue(3,0)
  441. Background
  442. \select control 5 pattern picker bg ctvalue(4,0) select control 6 line picker bg ctvalue(4,0)
  443. 1select control 6 line picker pattern ctvalue(5,0)
  444. dg:linewid = ctvalue(6,0)
  445.  fg 5
  446.  bg 5
  447.      pattern 5
  448.  width 5
  449. Cancel@
  450. repaint off dg:doit=1 dg:fgcol = ctvalue(3,0) dg:bgcol = ctvalue(4,0) dg:patt = ctvalue(5,0)
  451.                     dg:val2 = ctvalue(7,1) dg:val3 = ctvalue(7,2)
  452.                     dg:val4 = ctvalue(9,0)
  453. Foreground
  454. select control 5 pattern picker fg ctvalue(3,0)
  455.                     select control 6 line picker fg ctvalue(3,0)
  456.                     select control 8 repaint control
  457. Background
  458. select control 5 pattern picker bg ctvalue(4,0) select control 6 line picker bg ctvalue(4,0)
  459.                     select control 8 repaint control
  460. Wselect control 6 line picker pattern ctvalue(5,0)
  461.                     select control 8 repaint control
  462. :dg:linewid = ctvalue(6,0) select control 8 repaint control
  463. Starting
  464. Ending
  465. Arrow@
  466. }select control 9 if ctvalue(7,1) or ctvalue(7,2) ungrey control else grey control end if
  467.                 select control 8 repaint control
  468. *on repaint call dg:drawarrow() end repaint
  469. Length
  470.  select control 8 repaint control
  471.  fg 5
  472.  bg 5
  473.      pattern 5
  474.  width 5
  475. double arrow
  476. back arrow
  477. single arrow
  478. no arrow
  479. arrow length 
  480.  points5
  481. axis major grid
  482. axis minor grid
  483.     base line
  484. surface line
  485. plot interior line
  486. Cancel@
  487. &repaint off dg:doit=1 call dg:bordup()
  488. S@quare
  489. Round
  490. Corners@
  491. call dg:bordup()
  492. 2D Drop
  493. 3D Drop
  494. Shadow@
  495. call dg:bordup()
  496. Non@e
  497. Single Line
  498. Double Line
  499. Thick @Inner
  500. Thick @Outer
  501. Line Type@
  502. call dg:bordup()
  503. Foreground
  504. call dg:bordup()
  505. Background
  506. call dg:bordup()
  507. call dg:bordup()
  508. X-offset
  509. call dg:bordup()
  510. Y-offset
  511. call dg:bordup()
  512.     S@trength
  513. call dg:bordup()
  514. square corners
  515. round corners
  516. no drop shadow
  517. 2d drop shadow
  518. 3d drop shadow
  519. no line border
  520. single line border
  521. double line border
  522. thick inner line border
  523. thick outer line border
  524. shadow fg 
  525. shadow bg 
  526. shadow pattern 
  527. border x offset 
  528.  points5
  529. border y offset 
  530.  points5
  531. shadow strength 
  532. colpick
  533. colorpicker
  534. val10    
  535. val11
  536. val12
  537. val13
  538. arrowfg
  539. arrowbg
  540. arrowpat
  541. linewid
  542. fgcol
  543. bgcol
  544. colpikit
  545. findtype
  546. findstr
  547. edtype
  548. edcase
  549. edword
  550. edwrap 
  551. edback!
  552. edfind"
  553. edrep#
  554. lastformulapaste$
  555. DGFileError
  556. DGAskQ
  557. DGShadow
  558. gengraf1
  559. gengraf2g
  560. piegraf
  561. contgraf
  562. wiregrafk
  563. surfgraf
  564. charts
  565. genitem3:
  566. getpaswrd
  567. DGFind
  568. frupdate
  569. DGColumnWidth
  570. DGRowHeightv'
  571. DGNewName`(
  572. DGPasteFormula')
  573. pasteupdateN+
  574. DGObjectInfo
  575. fieldup
  576. fieldupdateM;
  577. paintpie =
  578. DG3DPieView
  579. DG3DView
  580. repview
  581. dobars
  582. colpik
  583. redo:N
  584. DGTextColor
  585. DGSymbol
  586. DGScaleInfo
  587. DGCombo
  588. DGLabel
  589. DGPassword
  590. DGTextSize
  591. DGScale
  592. DGIteration
  593. DGPrecision
  594. DGName    d
  595. DGHelp
  596. DGGenFill
  597. DGFill    h
  598. DGPlotFill
  599. DGBaseSideFill>h
  600. DGBaseTopFillYh
  601. DGGenLinesh
  602. DGGenLineArrow
  603. drawarrow
  604. DGLine
  605. DGMajGrid-s
  606. DGMinGridPs
  607. DGBaseLiness
  608. DGSurfaceLine
  609. DGPlotLine
  610. DGBorder
  611. bordup
  612. WZSCWNGZ
  613. WZSCWNGZ
  614. 1.0.1.0 - COPYRIGHT 
  615.  1988 INFORMIX SOFTWARE, INC.
  616. Wingz
  617.  Software Version 1.0
  618.