Return to PSText.m CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / Yap

Annotation of Examples/AppKit/Yap/PSText.m, revision 1.1.1.1

1.1       root        1: /*
                      2:  *  PSText.m, subclass of Text overriding paste: for adding functionality
                      3:  *  Author: Ali Ozer
                      4:  *  Created: Mar 22, 89
                      5:  *
                      6:  *  You may freely copy, distribute and reuse the code in this example.
                      7:  *  NeXT disclaims any warranty of any kind, expressed or implied,
                      8:  *  as to its fitness for any particular use.
                      9:  */
                     10: 
                     11: #import <appkit/appkit.h>
                     12: #import <string.h>
                     13: #import <mach/mach.h>
                     14: #import "PSText.h"
                     15: 
                     16: @implementation PSText
                     17: 
                     18: /*
                     19:  * The following method overrides the Text paste: method. If there's any
                     20:  * PostScript on the pasteboard, this method will paste that in before pasting
                     21:  * ASCII. If there's no PostScript on the pasteboard, then this method will
                     22:  * simply call the overridden paste: method.
                     23:  */
                     24: - paste:(id)sender
                     25: {
                     26:     id pb = [Pasteboard new];  
                     27:     char *data;
                     28:     char *const *s;  /* We use s to go through types. */
                     29:     char *const *types = [pb types];
                     30:     int len;
                     31: 
                     32:     /* Check to see if we have any PostScript on the pasteboard... */
                     33: 
                     34:     for (s = types; *s; s++) if (!strcmp(*s, NXPostScriptPboard)) break;
                     35: 
                     36:     /* At this point, if *s != NULL, we found PostScript on the pasteboard. */
                     37: 
                     38:     if (*s && [pb readType:NXPostScriptPboard data:&data length:&len] && len) {
                     39:        [self replaceSel:data length:len];
                     40:         vm_deallocate (task_self(), (vm_address_t)data, (vm_size_t)len);       
                     41:     } else {
                     42:         [super paste:sender];  /* No PS; pass the task on to Text. */
                     43:     }
                     44: 
                     45:     return self;
                     46: }
                     47: 
                     48: @end
                     49: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.