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
|
#import "CommandScroll.h"
#import "LispText.h"
#import "Coordinator.h"
@implementation CommandScroll
// This is essentially from Subprocess.app
- initFrame:(const NXRect *)frameRect
{
[super initFrame:frameRect];
[self setVertScrollerRequired: YES];
[self setBackgroundGray: NX_WHITE];
[self setBorderType:NX_LINE];
return self;
}
- awake
{
NXRect textRect;
textRect.origin.x = textRect.origin.y = 0.0;
[self getContentSize: &(textRect.size)];
textRect.size.width = 0.0;
[docView setMinSize:&(textRect.size)];
[self getContentSize: &(textRect.size)];
textRect.size.height = 1000000;
textRect.size.width = 100000;
[docView setMaxSize:&(textRect.size)];
[super setDocView:docView];
return self;
}
- setDocView:anObject
{
[super setDocView:anObject];
docView = anObject;
[docView setDelegate:self];
return self;
}
- docView
{
return docView;
}
@end
|
