quakeforge/tools/Forge/ZScrollView.m
Jeff Teunissen 317d3bddb8 New program (incomplete, and horridly broken): Forge.app. It's going to be
a GNUstep port of the original Quake editor for NeXTstep, QuakeEd.app.
2001-02-09 01:52:44 +00:00

71 lines
950 B
Objective-C

#import "qedefs.h"
@implementation ZScrollView
/*
====================
initFrame: button:
Initizes a scroll view with a button at it's lower right corner
====================
*/
- initFrame:(const NXRect *)frameRect button1:b1
{
[super initFrame: frameRect];
[self addSubview: b1];
button1 = b1;
[self setHorizScrollerRequired: YES];
[self setVertScrollerRequired: YES];
[self setBorderType: NX_BEZEL];
return self;
}
/*
================
tile
Adjust the size for the pop up scale menu
=================
*/
- tile
{
NXRect scrollerframe;
[super tile];
[hScroller getFrame: &scrollerframe];
[button1 setFrame: &scrollerframe];
scrollerframe.size.width = 0;
[hScroller setFrame: &scrollerframe];
return self;
}
-(BOOL) acceptsFirstResponder
{
return YES;
}
- superviewSizeChanged:(const NXSize *)oldSize
{
[super superviewSizeChanged: oldSize];
[[self docView] newSuperBounds];
return self;
}
@end