home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / OOP / STIX.TAR / stix / Drawable.st < prev    next >
Encoding:
Text File  |  1991-09-13  |  1.8 KB  |  68 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.  
  33. Object subclass: #Drawable
  34.        instanceVariableNames: 'display id'
  35.        classVariableNames: ''
  36.        poolDictionaries: 'XGlobals'
  37.        category: 'X hacking'
  38. !
  39.  
  40. Object subclass: #GC        "should this be folded into some higher level class?"
  41.        instanceVariableNames: 'display drawable id'
  42.        classVariableNames: ''
  43.        poolDictionaries: 'XGlobals'
  44.        category: 'X hacking'
  45. !
  46.  
  47. !Drawable methodsFor: 'X hacking'!
  48.  
  49. createGC: aBlock
  50.     | packet gc |
  51.     
  52.     packet _ XGCAttrPacket command: 55.
  53.  
  54.     gc _ GC new: display drawable: self.
  55.     packet long: gc id; long: self id.
  56.     aBlock notNil
  57.     ifTrue: [ aBlock value: packet ]
  58.     ifFalse: [ packet noBits ].
  59.     
  60.     
  61.     display socket bytes: packet done.
  62.     ^gc
  63. !
  64.  
  65. id
  66.     ^id
  67. !!
  68.