File: GSMarkupTagScrollView.m

package info (click to toggle)
renaissance 0.8.0-8
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,484 kB
  • ctags: 389
  • sloc: objc: 10,524; makefile: 64; perl: 19; sh: 12
file content (165 lines) | stat: -rw-r--r-- 4,525 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
/* -*-objc-*-
   GSMarkupTagScrollView.m

   Copyright (C) 2002 Free Software Foundation, Inc.

   Author: Nicola Pero <n.pero@mi.flashnet.it>
   Date: March 2002

   This file is part of GNUstep Renaissance

   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Library General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.
   
   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Library General Public License for more details.

   You should have received a copy of the GNU Library General Public
   License along with this library; see the file COPYING.LIB.
   If not, write to the Free Software Foundation,
   59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/

#include "GSMarkupTagScrollView.h"

#ifndef GNUSTEP
# include <Foundation/Foundation.h>
# include <AppKit/AppKit.h>
# include "GNUstep.h"
#else
# include <Foundation/NSString.h>
# include <Foundation/NSDictionary.h>
# include <AppKit/NSClipView.h>
# include <AppKit/NSScrollView.h>
# include <AppKit/NSTextContainer.h>
# include <AppKit/NSTextView.h>
# include <AppKit/NSView.h>
#endif

@implementation GSMarkupTagScrollView

+ (NSString *) tagName
{
  return @"scrollView";
}

+ (Class) defaultPlatformObjectClass
{
  return [NSScrollView class];
}

- (void) platformObjectInit
{
  [self setPlatformObject: [_platformObject init]];
  
  /* hasHorizontalScroller (FIXME name) */
  if ([self boolValueForAttribute: @"hasHorizontalScroller"] == 0)
    {
      [_platformObject setHasHorizontalScroller: NO];
    }
  else
    {
      [_platformObject setHasHorizontalScroller: YES];
    }
  

  /* hasVerticalScroller (FIXME name) */  
  if ([self boolValueForAttribute: @"hasVerticalScroller"] == 0)
    {
      [_platformObject setHasVerticalScroller: NO];
    }
  else
    {
      [_platformObject setHasVerticalScroller: YES];
    }

#ifdef GNUSTEP
  [(NSScrollView *)_platformObject setBorderType: NSBezelBorder];
#endif
  
/* borderType - if none is given, the default is Bezel on GNUstep and
 * none on Apple Mac OS X.  This attribute is called 'borderType', and
 * not 'border', because 'border' is already used for autolayout
 * purposes.  You should use sparingly this attribute - usually you
 * can/should allow the default border type for your platform to be
 * used.
 */
  {
#ifdef GNUSTEP
    NSBorderType theType = NSBezelBorder; /* Default on GNUstep */
#else
    NSBorderType theType = NSNoBorder;    /* Default on Apple Mac OS X */
#endif
    NSString *border = [_attributes objectForKey: @"borderType"];
    
    if (border != nil)
      {
	if ([border isEqualToString: @"none"] == YES)
	  {
	    theType = NSNoBorder;
	  }
	else if ([border isEqualToString: @"line"] == YES)
	  {
	    theType = NSLineBorder;
	  }
	else if ([border isEqualToString: @"bezel"] == YES)
	  {
	    theType =  NSBezelBorder;
	  }
	else if ([border isEqualToString: @"groove"] == YES)
	  {
	    theType =  NSGrooveBorder;
          }
      }
    
    [_platformObject setBorderType: theType];
  }
  
  /* Add content.  */
  {
    if ([_content count] > 0)
      {
	GSMarkupTagView *view = [_content objectAtIndex: 0];
	NSView *v;
	
	v = [view platformObject];
	if (v != nil  &&  [v isKindOfClass: [NSView class]])
	  {
	    [_platformObject setDocumentView: v];
	    /* I think this is a bug in gnustep's gui library:
	     * NSClipView has autoresizesSubviews set, I'm not sure
	     * why.  */
	    [v setAutoresizingMask: NSViewNotSizable];
	  }
      }
  }
}

- (void) platformObjectAfterInit
{
  [super platformObjectAfterInit];

  /* FIXME - not sure how to set up this stuff for text view, if not
   * here.  */
  if ([[_platformObject documentView] isKindOfClass: [NSTextView class]])
    {
      NSRect textRect = [[_platformObject contentView] frame];
      NSTextView *tv = [_platformObject documentView];
      
      [tv setFrame: textRect];
      [tv setHorizontallyResizable: NO];
      [tv setVerticallyResizable: YES];
      [tv setMinSize: NSMakeSize (0, 0)];
      [tv setMaxSize: NSMakeSize (1E7, 1E7)];
      [tv setAutoresizingMask: NSViewHeightSizable | NSViewWidthSizable];
      [[tv textContainer] setContainerSize: NSMakeSize 
			  (textRect.size.width, 1e7)];
      [[tv textContainer] setWidthTracksTextView: YES];
    }
}

@end