home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / x / volume10 / xt-examples / part02 / fragments / extension.c < prev    next >
Text File  |  1990-11-04  |  2KB  |  50 lines
  1. /***********************************************************
  2. Copyright 1990 by Digital Equipment Corporation, Maynard, Massachusetts.
  3.  
  4.                         All Rights Reserved
  5.  
  6. Permission to use, copy, modify, and distribute these examples for any
  7. purpose and without fee is hereby granted, provided that the above
  8. copyright notice appear in all copies and that both that copyright
  9. notice and this permission notice appear in supporting documentation,
  10. and that the name of Digital not be used in advertising or publicity
  11. pertaining to distribution of the software without specific, written
  12. prior permission.
  13.  
  14. DIGITAL AND THE AUTHORS DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  15. SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  16. FITNESS, IN NO EVENT SHALL DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT
  17. OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
  18. OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  19. OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE
  20. OR PERFORMANCE OF THIS SOFTWARE.
  21.  
  22. ******************************************************************/
  23.  
  24. void MyDefineQueryMinimumSize(widget_class, proc)
  25.     WidgetClass widget_class;
  26.     MinimumSizeProc proc;
  27. {
  28.     static Quark myWidgetSet = NULLQUARK;
  29.     MyCoreClassExtension extension;
  30.  
  31.     if (myWidgetSet == NULLQUARK) {
  32.     myWidgetSet = XrmStringToQuark("MY_WIDGET_SET");
  33.     }
  34.  
  35.     for (extension = widget_class->core_class.extension;
  36.         extension != NULL && extension->record_type != myWidgetSet;
  37.         extension = extension->next_extension) {}
  38.  
  39.     if (extension == NULL) {
  40.     extension = XtNew(MyCoreClassExtensionRec);
  41.     extension->next_extension = widget_class->core_class.extension;
  42.     widget_class->core_class.extension = extension;
  43.     extension->record_type = myWidgetSet;
  44.     extension->version = @i[something];
  45.     extension->record_size = sizeof(MyCoreClassExtensionRec);
  46.     }
  47.  
  48.     extension->query_minimum_size = proc;
  49. }    
  50.