home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / tcl / 2168 < prev    next >
Encoding:
Text File  |  1992-12-21  |  2.9 KB  |  106 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!eco.twg.com!twg.com!news
  3. From: "David Herron" <david@twg.com>
  4. Subject: tk3.0 on Sun 386i
  5. Message-ID: <1992Dec19.010521.10722@twg.com>
  6. Sensitivity: Personal
  7. Encoding:  86 TEXT , 4 TEXT 
  8. Sender: news@twg.com (USENET News System)
  9. Conversion: Prohibited
  10. Organization: The Wollongong Group, Inc., Palo Alto, CA
  11. Conversion-With-Loss: Prohibited
  12. Date: Sat, 19 Dec 1992 01:10:19 GMT
  13. Lines: 91
  14.  
  15. Yes, my workstation's a 386i .. ohwell.
  16.  
  17. Anyway I am compiling tk3.0 & tcl6.5 on it with the supplied /bin/cc
  18. and have come across a couple of problems.
  19.  
  20. One was the `cp -f' stuff in tk3.0/tcl/Makefile.
  21.  
  22. In tkEvent.c at lines 823, 825 and 838 are some ?: operations whose result
  23. was (int *) but used NULL directly.  The compiler insisted this was wrong
  24. and stopped.  So casting the NULL like the following is dunky-hoary:
  25.  
  26.     exceptPtr = (exceptCount == 0 ? (int *)NULL : &ready[2*MASK_SIZE]);
  27.                     ^^^^^^^ Added cast.
  28.  
  29. The TK test scripts failed all over itself in pack.test.  None appear to
  30. be real problems tho' ..
  31.  
  32.  
  33.  
  34. ==== pack-8.13 syntax errors
  35. ==== Contents of test case:
  36.  
  37.     set msg ""
  38.     set result [catch {pack append . .pack.blue top} msg]
  39.  
  40. ==== Result was:
  41. 1 tried to pack ".pack.blue" in window that isn't its parent
  42. ---- Result should have been:
  43. 1 can't pack .pack.blue inside .
  44. ---- pack-8.13 FAILED
  45.  
  46.  
  47. ==== pack-8.17 syntax errors
  48. ==== Contents of test case:
  49.  
  50.     set msg ""
  51.     set result [catch {pack append .pack .pack.blue {padx -2}} msg]
  52.     concat $result $msg
  53.  
  54. ==== Result was:
  55. 1 bad pad value "-2":  must be positive integer
  56. ---- Result should have been:
  57. 1 bad pad value "-2":  must be positive screen distance
  58. ---- pack-8.17 FAILED
  59.  
  60.  
  61. ==== pack-8.18 syntax errors
  62. ==== Contents of test case:
  63.  
  64.     set msg ""
  65.     set result [catch {pack append .pack .pack.blue {padx}} msg]
  66.     concat $result $msg
  67.  
  68. ==== Result was:
  69. 1 wrong # args: "padx" option must be followed by count
  70. ---- Result should have been:
  71. 1 wrong # args: "padx" option must be followed by screen distance
  72. ---- pack-8.18 FAILED
  73.  
  74.  
  75. ==== pack-8.19 syntax errors
  76. ==== Contents of test case:
  77.  
  78.     set msg ""
  79.     set result [catch {pack append .pack .pack.blue {pady -2}} msg]
  80.     concat $result $msg
  81.  
  82. ==== Result was:
  83. 1 bad pad value "-2":  must be positive integer
  84. ---- Result should have been:
  85. 1 bad pad value "-2":  must be positive screen distance
  86. ---- pack-8.19 FAILED
  87.  
  88.  
  89. ==== pack-8.20 syntax errors
  90. ==== Contents of test case:
  91.  
  92.     set msg ""
  93.     set result [catch {pack append .pack .pack.blue {pady}} msg]
  94.     concat $result $msg
  95.  
  96. ==== Result was:
  97. 1 wrong # args: "pady" option must be followed by count
  98. ---- Result should have been:
  99. 1 wrong # args: "pady" option must be followed by screen distance
  100. ---- pack-8.20 FAILED
  101.  
  102. <- David Herron <david@twg.com> (work) <david@davids.mmdf.com> (home)
  103. <-
  104. <- During the '80s Usenet's mantra was: "Not all the world's a VAX".
  105. <- During the '90s I hope it becomes:   "Not all the world's DOS (ick)".
  106.