Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Tree: 9b05eb0e7d
Fetching contributors…

Cannot retrieve contributors at this time

executable file 163 lines (135 sloc) 4.541 kB
/* -*-objc-*-
Author: Nicola Pero <>
Date: January 2003
Author of Cappuccino port: Daniel Boehringer (2012)
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
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.
@import "GSMarkupTagView.j"
@implementation GSMarkupTagScrollView: GSMarkupTagView
+ (CPString) tagName
return @"scrollView";
+ (Class) platformObjectClass
return [CPScrollView class];
- (id) initPlatformObject: (id)platformObject
platformObject = [platformObject init];
/* hasHorizontalScroller (FIXME name) */
if ([self boolValueForAttribute: @"hasHorizontalScroller"] == 0)
[platformObject setHasHorizontalScroller: NO];
[platformObject setHasHorizontalScroller: YES];
/* hasVerticalScroller (FIXME name) */
if ([self boolValueForAttribute: @"hasVerticalScroller"] == 0)
[platformObject setHasVerticalScroller: NO];
[platformObject setHasVerticalScroller: YES];
/* 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.
var theType = CPNoBorder; /* Default on Apple Mac OS X */
var border = [_attributes objectForKey: @"borderType"];
if (border != nil)
if ([border isEqualToString: @"none"] == YES)
theType = CPNoBorder;
else if ([border isEqualToString: @"line"] == YES)
theType = CPLineBorder;
else if ([border isEqualToString: @"bezel"] == YES)
theType = CPBezelBorder;
else if ([border isEqualToString: @"groove"] == YES)
theType = CPGrooveBorder;
[platformObject setBorderType: theType];
/* Add content. */
if ([_content count] > 0)
var view = [_content objectAtIndex: 0];
var v;
v = [view platformObject];
if (v != nil && [v isKindOfClass: [CPView class]])
[platformObject setDocumentView: v];
/* I think this is a bug in gnustep's gui library:
* CPClipView has autoresizesSubviews set, I'm not sure
* why. */
var mymask=CPViewNotSizable;
if(![platformObject hasHorizontalScroller])
{ mymask|= CPViewWidthSizable;
var myrect = [[platformObject contentView] frame];
var contentRect = [[platformObject documentView] frame];
[[platformObject documentView] setFrame: contentRect];
[v setAutoresizingMask: mymask];
return platformObject;
- (id) postInitPlatformObject: (id)platformObject
platformObject = [super postInitPlatformObject: platformObject];
/* FIXME - not sure how to set up this stuff for text view, if not
* here. */
if ([[platformObject documentView] isKindOfClass: [CPTextView class]])
var textRect = [[platformObject contentView] frame];
var tv = [platformObject documentView];
[tv setFrame: textRect];
[tv setHorizontallyResizable: NO];
[tv setVerticallyResizable: YES];
[tv setMinSize: CPMakeSize (0, 0)];
[tv setMaxSize: CPMakeSize (1E7, 1E7)];
[tv setAutoresizingMask: CPViewHeightSizable | CPViewWidthSizable];
[[tv textContainer] setContainerSize: CPMakeSize
(textRect.size.width, 1e7)];
[[tv textContainer] setWidthTracksTextView: YES];
var width=[self intValueForAttribute:"width"];
{ var myrect = [[platformObject contentView] frame];
[[platformObject contentView] setFrame: myrect];
return platformObject;
Jump to Line
Something went wrong with that request. Please try again.