Layout.st
author Stefan Vogel <sv@exept.de>
Mon, 13 Mar 2017 09:54:33 +0100
changeset 3941 dd9237d3a727
parent 3877 595b816b53b5
child 4293 263c32978c32
permissions -rw-r--r--
#BUGFIX by stefan class: MIMETypes application/xml -> #isXmlType
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
88
claus
parents: 83
diff changeset
     1
"
claus
parents: 83
diff changeset
     2
 COPYRIGHT (c) 1995 by Claus Gittinger
93
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
     3
	      All Rights Reserved
88
claus
parents: 83
diff changeset
     4
claus
parents: 83
diff changeset
     5
 This software is furnished under a license and may be used
claus
parents: 83
diff changeset
     6
 only in accordance with the terms of that license and with the
claus
parents: 83
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
claus
parents: 83
diff changeset
     8
 be provided or otherwise made available to, or used by, any
claus
parents: 83
diff changeset
     9
 other person.  No title to or ownership of the software is
claus
parents: 83
diff changeset
    10
 hereby transferred.
claus
parents: 83
diff changeset
    11
"
2137
1cc62200836d Fix comments.
Stefan Vogel <sv@exept.de>
parents: 949
diff changeset
    12
"{ Package: 'stx:libview2' }"
1cc62200836d Fix comments.
Stefan Vogel <sv@exept.de>
parents: 949
diff changeset
    13
3616
b79beb6fb8cf #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
    14
"{ NameSpace: Smalltalk }"
b79beb6fb8cf #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
    15
77
claus
parents:
diff changeset
    16
Object subclass:#Layout
216
a5f97668e99a commentary
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
    17
	instanceVariableNames:''
a5f97668e99a commentary
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
    18
	classVariableNames:''
a5f97668e99a commentary
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
    19
	poolDictionaries:''
a5f97668e99a commentary
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
    20
	category:'Graphics-Geometry'
77
claus
parents:
diff changeset
    21
!
claus
parents:
diff changeset
    22
88
claus
parents: 83
diff changeset
    23
!Layout class methodsFor:'documentation'!
claus
parents: 83
diff changeset
    24
claus
parents: 83
diff changeset
    25
copyright
claus
parents: 83
diff changeset
    26
"
claus
parents: 83
diff changeset
    27
 COPYRIGHT (c) 1995 by Claus Gittinger
93
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    28
	      All Rights Reserved
88
claus
parents: 83
diff changeset
    29
claus
parents: 83
diff changeset
    30
 This software is furnished under a license and may be used
claus
parents: 83
diff changeset
    31
 only in accordance with the terms of that license and with the
claus
parents: 83
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
claus
parents: 83
diff changeset
    33
 be provided or otherwise made available to, or used by, any
claus
parents: 83
diff changeset
    34
 other person.  No title to or ownership of the software is
claus
parents: 83
diff changeset
    35
 hereby transferred.
claus
parents: 83
diff changeset
    36
"
claus
parents: 83
diff changeset
    37
!
claus
parents: 83
diff changeset
    38
93
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    39
documentation
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    40
"
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    41
    This is an abstract superclass for geometry controlling objects.
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    42
    While old smalltalks used relative origin/extent/corner and absolute
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    43
    origin/corner/extents, these mechanisms are now being removed from the
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    44
    view itself into geometry controlling objects, which are given a superviews
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    45
    size and are to return a components size upon request.
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    46
    This allows more flexible geometry management, since any algorithm can
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    47
    be implemented (if the existing ones are not sufficient, add you own subclass
96
claus
parents: 94
diff changeset
    48
    and install it as layout-object in your view).
93
f2389560b8eb *** empty log message ***
claus
parents: 88
diff changeset
    49
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    50
    Notice: 
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    51
        this class was implemented using protocol information
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    52
        from alpha testers - it may not be complete or compatible to
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    53
        the corresponding ST-80 class. 
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    54
        If you encounter any incompatibilities, please forward a note 
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    55
        describing the incompatibility verbal (i.e. no code) to the ST/X team.
219
106b86ca81da documentation
Claus Gittinger <cg@exept.de>
parents: 216
diff changeset
    56
106b86ca81da documentation
Claus Gittinger <cg@exept.de>
parents: 216
diff changeset
    57
    [author:]
106b86ca81da documentation
Claus Gittinger <cg@exept.de>
parents: 216
diff changeset
    58
        Claus Gittinger
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    59
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    60
    [see also:]
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    61
        View
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    62
        LayoutOrigin LayoutFrame AlignmentOrigin
94
8888ddd11323 *** empty log message ***
claus
parents: 93
diff changeset
    63
"
88
claus
parents: 83
diff changeset
    64
! !
claus
parents: 83
diff changeset
    65
77
claus
parents:
diff changeset
    66
!Layout class methodsFor:'instance creation'!
claus
parents:
diff changeset
    67
claus
parents:
diff changeset
    68
new
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    69
    "return a new initialized instance"
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    70
77
claus
parents:
diff changeset
    71
    ^ self basicNew initialize
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    72
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    73
    "Modified: 27.4.1996 / 14:47:08 / cg"
77
claus
parents:
diff changeset
    74
! !
claus
parents:
diff changeset
    75
3877
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    76
!Layout class methodsFor:'queries'!
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    77
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    78
isAbstract
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    79
    "Return if this class is an abstract class.
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    80
     True is returned here for myself only; false for subclasses.
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    81
     Abstract subclasses must redefine this again."
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    82
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    83
    ^ self == Layout.
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    84
! !
595b816b53b5 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3795
diff changeset
    85
284
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    86
!Layout methodsFor:'converting'!
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    87
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    88
asLayout
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    89
    "return the receiver"
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    90
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    91
    ^ self
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    92
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    93
    "Created: 29.5.1996 / 15:12:13 / cg"
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    94
! !
b31698e4ebb6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
    95
77
claus
parents:
diff changeset
    96
!Layout methodsFor:'initialization'!
claus
parents:
diff changeset
    97
claus
parents:
diff changeset
    98
initialize
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
    99
    "setup the instance - to be redefined by concrete subclasses"
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   100
77
claus
parents:
diff changeset
   101
    ^ self subclassResponsibility
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   102
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   103
    "Modified: 27.4.1996 / 14:46:56 / cg"
77
claus
parents:
diff changeset
   104
! !
126
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   105
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   106
!Layout methodsFor:'queries'!
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   107
415
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   108
isAlignmentOrigin
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   109
    "return true, if this is an alignmentOrigin"
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   110
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   111
    ^ false
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   112
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   113
!
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   114
126
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   115
isLayout
3616
b79beb6fb8cf #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
   116
    "return true, if the receiver is a layout object. 
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   117
     Always return true here."
415
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   118
126
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   119
    ^ true
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   120
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   121
    "Modified: 27.4.1996 / 14:45:27 / cg"
126
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   122
!
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   123
417
3b5a3b678ede *** empty log message ***
ca
parents: 415
diff changeset
   124
isLayoutFrame
3b5a3b678ede *** empty log message ***
ca
parents: 415
diff changeset
   125
    "return true, if this is a layoutFrame"
3b5a3b678ede *** empty log message ***
ca
parents: 415
diff changeset
   126
3b5a3b678ede *** empty log message ***
ca
parents: 415
diff changeset
   127
    ^ false
3b5a3b678ede *** empty log message ***
ca
parents: 415
diff changeset
   128
3b5a3b678ede *** empty log message ***
ca
parents: 415
diff changeset
   129
!
3b5a3b678ede *** empty log message ***
ca
parents: 415
diff changeset
   130
415
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   131
isLayoutOrigin
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   132
    "return true, if this is a layoutOrigin"
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   133
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   134
    ^ false
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   135
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   136
!
5d1bf4dffbf5 *** empty log message ***
ca
parents: 284
diff changeset
   137
949
0eb888b21192 prefRect may now be a valueHolder or block
Claus Gittinger <cg@exept.de>
parents: 785
diff changeset
   138
rectangleRelativeTo:superRectangle preferred:prefRectHolder
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   139
    "compute the rectangle represented by the receiver,
3795
6835c15d8a12 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3616
diff changeset
   140
     given the superViews rectangle and the view's preferredExtent.
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   141
     Must be implemented by concrete subclasses."
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   142
126
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   143
    ^ self subclassResponsibility
229
612861ef768a examples
Claus Gittinger <cg@exept.de>
parents: 219
diff changeset
   144
949
0eb888b21192 prefRect may now be a valueHolder or block
Claus Gittinger <cg@exept.de>
parents: 785
diff changeset
   145
    "Modified: / 27.5.1998 / 10:19:21 / cg"
126
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   146
! !
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   147
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   148
!Layout class methodsFor:'documentation'!
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   149
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   150
version
3616
b79beb6fb8cf #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
   151
    ^ '$Header$'
126
25df58661f32 version at the end
Claus Gittinger <cg@exept.de>
parents: 114
diff changeset
   152
! !
3616
b79beb6fb8cf #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
   153