hg/stx-libview: comparison StandardSystemView.st

equal deleted inserted replaced

-:1a09a1d7d28d
+:cf8e46015072
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
-View subclass:#StandardSystemView
+TopView subclass:#StandardSystemView
 instanceVariableNames:'label icon iconView iconLabel
-			      minExtent maxExtent'
+			      minExtent maxExtent sizeFixed
+			      application'
 classVariableNames:   'DefaultIcon TakeFocusWhenMapped'
 poolDictionaries:''
 category:'Views-Basic'
 !
 StandardSystemView comment:'
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
-$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.22 1995-04-02 11:10:48 claus Exp $
+$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.23 1995-05-03 00:25:28 claus Exp $
 '!
 !StandardSystemView class methodsFor:'documentation'!
 copyright
 "
 !
 version
 "
-$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.22 1995-04-02 11:10:48 claus Exp $
+$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.23 1995-05-03 00:25:28 claus Exp $
 "
 !
 documentation
 "
 "
 ! !
 !StandardSystemView class methodsFor:'defaults'!
-defaultExtent
-"topviews extent is (0.6 @ 0.6) of screen by default"
-^ (Display width // 3 * 2) @ (Display height // 3 * 2)
-!
 defaultLabel
 "return the default label for views of my kind.
 This can be redefined in subclasses or overwritten in
 initialize methods."
 "return the default icon for views.
 This can be redefined in subclasses or overwritten in
 initialize methods."
 DefaultIcon isNil ifTrue:[
-	DefaultIcon := Image fromFile:'bitmaps/SmalltalkX.xbm'.
+	DefaultIcon := Image fromFile:'SmalltalkX.xbm'.
 	DefaultIcon notNil ifTrue:[
 	    DefaultIcon := DefaultIcon on:Display
 	]
 ].
 ^ DefaultIcon
 ! !
 !StandardSystemView methodsFor:'initialization'!
 initialize
-|screenCenter|
 super initialize.
-self addToCurrentProject.
-screenCenter := device center.
-left := screenCenter x - (width // 2).
-top := screenCenter y - (height // 2).
 borderWidth := 2.         "- notice: many window managers ignore this"
-label isNil ifTrue:[label := self class defaultLabel].
 minExtent := 10 @ 10.
 maxExtent := (device width) @ (device height).
+label isNil ifTrue:[label := self class defaultLabel].
 icon isNil ifTrue:[icon := self class defaultIcon].
 name := self class name.
 !
 initEvents
 !
 realize
 super realize.
 windowGroup notNil ifTrue:[
-	windowGroup focusSequence:(self focusSequence)
+	"/
+	"/ have to wait till now, since before I had no windowGroup
+	"/
+	windowGroup focusSequence:self focusSequence.
+	"/
+	"/ let the application add its views to the current project
+	"/
+	application notNil ifTrue:[
+	    application opened.
+	] ifFalse:[
+	    self addToCurrentProject.
+	].
 ]
 !
 focusSequence
 "return a sequence which defines the order in which the focus
 Or, if the model is some applicationModel, it may itself define
 the focusSequence.
 Notice: I dont think this is good style: the focusSequence seems
 to belong into the controller, ..."
+"/
+"/ if I have an application, its supposed to
+"/ know about the focusSequence
+"/
+application notNil ifTrue:[
+	^ application focusSequence
+].
 (model notNil
 and:[(model respondsTo:#focusSequence)
 and:[model ~~ self]]) ifTrue:[
 	^ model focusSequence
 ].
 ^ nil
 ! !
 !StandardSystemView methodsFor:'destroying'!
+terminate
+application notNil ifTrue:[
+	application closeRequest
+] ifFalse:[
+	super terminate
+]
+!
+saveAndTerminate
+application notNil ifTrue:[
+	application saveAndTerminateRequest
+] ifFalse:[
+	super saveAndTerminate
+]
+!
 destroy
 self removeFromCurrentProject
 windowGroup notNil ifTrue:[
 	windowGroup focusSequence:nil.
 self open
 !
 openWithPriority:aPriority
 "open the view, run the windowgroup process at
-other than UserScehdulingPriority"
+other than UserScehdulingPriority."
 self open.
 windowGroup process priority:aPriority.
-! !
-!StandardSystemView methodsFor:'misc'!
-withWaitCursorDo:aBlock
-"evaluate aBlock while showing a waitCursor in all my views"
-self withCursor:(Cursor wait) do:aBlock
-!
-withCursor:aCursor do:aBlock
-"evaluate aBlock while showing aCursor in all my views"
-windowGroup notNil ifTrue:[
-	windowGroup withCursor:aCursor do:aBlock
-] ifFalse:[
-	super withCursor:aCursor do:aBlock
-]
 ! !
 !StandardSystemView methodsFor:'printing & storing'!
 displayString
 ].
 ^ s
 ! !
 !StandardSystemView methodsFor:'accessing'!
-preferedExtent
-"return my preferred extent - this is the minimum size I would like to have.
-The default here is the classes default extent."
-^ self class defaultExtent
-!
-heightIncludingBorder
-"return the views overall-height"
-^ height
-!
-widthIncludingBorder
-"return the views overall-width"
-^ width
-!
 label
 "return the views name in the title area"
 ^ label
 "same as maxExtent: for ST-80 compatibility"
 ^ self maxExtent:anExtent
 !
+minimumSize
+"same as minExtent for ST-80 compatibility"
+^ self minExtent
+!
 minimumSize:anExtent
 "same as minExtent: for ST-80 compatibility"
 ^ self minExtent:anExtent
 !
 	((width > (maxExtent x)) or:
 	 [height > (maxExtent y)]) ifTrue: [
 	    self extent:maxExtent
 	]
 ]
+!
+sizeFixed:aBoolean
+"this prevents the view from resizing itself when realized.
+For normal topViews, this is void, since they dont do this anyway.
+However, modalBoxes typically resize themselfes to the preferedExtent
+of their components, which can be turned off by setting sizeFixed to true."
+sizeFixed := aBoolean
+!
+application
+"return the topViews application.
+This is new protocol for ST-80 compatibility and not yet fully supported"
+^ application
+!
+application:anApplicationModel
+"set the topViews application.
+This is new protocol for ST-80 compatibility and not yet fully supported"
+application := anApplicationModel
 ! !
 !StandardSystemView methodsFor:'event handling'!
 focusOut

changeset 135	cf8e46015072
parent 132	9dc9048e091d
child 140	0db355079dc4