home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / OOP / STIX.TAR / stix / error.st < prev    next >
Encoding:
Text File  |  1991-09-13  |  1.9 KB  |  65 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23.  
  24. "
  25. |     Change Log
  26. | ============================================================================
  27. | Author       Date       Change 
  28. | sbyrne     24 May 90      created.
  29. |
  30. "
  31.  
  32. Object subclass: #XError
  33.        instanceVariableNames: 'sequenceNumber majorOp minorOp'
  34.        classVariableNames: 'ErrorMap' "should this create this variable?"
  35.        poolDictionaries: ''
  36.        category: 'X hacking'
  37. !
  38.     
  39. FileStream fileIn: 'Xerr.st'!
  40.  
  41.  
  42. !XError class methodsFor: 'subinstance creation'!
  43.  
  44. initialize
  45.     | namePrefixes i |
  46.     namePrefixes _ #(Request Value Window Pixmap Atom Cursor Font 
  47.              Match Drawable Access Alloc Colormap GContext
  48.              IDChoice Name Length Implementation).
  49.     ErrorMap _ Array new: namePrefixes size.
  50.     i _ 1.
  51.     namePrefixes do: 
  52.     [ :prefix | ErrorMap at: i put: (Smalltalk at: (prefix, 'Error') asSymbol).
  53.             i _ i + 1 ]
  54. !
  55.  
  56. newFrom: aStream
  57.     | type class | 
  58.     type _ aStream byte.
  59.     class _ ErrorMap at: type.
  60.     ^class newFrom: aStream
  61. !!
  62.  
  63. XError initialize!
  64.  
  65.