equal
deleted
inserted
replaced
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
|
11 " |
|
12 "{ Package: 'stx:libtool' }" |
11 |
13 |
12 |
14 "{ NameSpace: Smalltalk }" |
13 " |
|
14 |
|
15 "{ Package: 'stx:libtool' }" |
|
16 |
15 |
17 VariablePanel subclass:#FileBrowserV2PanelView |
16 VariablePanel subclass:#FileBrowserV2PanelView |
18 instanceVariableNames:'whichView viewIsVisible visibilityHolder oldOrigin oldCorner' |
17 instanceVariableNames:'whichView viewIsVisible visibilityHolder oldOrigin oldCorner' |
19 classVariableNames:'BarHeight' |
18 classVariableNames:'BarHeight' |
20 poolDictionaries:'' |
19 poolDictionaries:'' |
49 " |
48 " |
50 ! ! |
49 ! ! |
51 |
50 |
52 !FileBrowserV2PanelView methodsFor:'accessing'! |
51 !FileBrowserV2PanelView methodsFor:'accessing'! |
53 |
52 |
54 visible:aState |
53 visible:aBooleanOrNil |
55 |view1 view2 newVisible newOrigin1 newOrigin2 newCorner1 newCorner2| |
54 |view1 view2 newVisible newOrigin1 newOrigin2 newCorner1 newCorner2| |
56 |
55 |
57 newVisible := aState ? true. |
56 newVisible := aBooleanOrNil ? true. |
58 |
57 |
59 ((newVisible == self isVisible) or:[subViews size ~~ 2]) ifTrue:[ |
58 ((newVisible == self isVisible) or:[subViews size ~~ 2]) ifTrue:[ |
60 ^ self |
59 ^ self |
61 ]. |
60 ]. |
62 viewIsVisible := newVisible. |
61 viewIsVisible := newVisible. |
97 ]. |
96 ]. |
98 view1 origin:newOrigin1 corner:newCorner1. |
97 view1 origin:newOrigin1 corner:newCorner1. |
99 view2 origin:newOrigin2 corner:newCorner2. |
98 view2 origin:newOrigin2 corner:newCorner2. |
100 ]. |
99 ]. |
101 visibilityHolder notNil ifTrue:[visibilityHolder value:viewIsVisible] |
100 visibilityHolder notNil ifTrue:[visibilityHolder value:viewIsVisible] |
|
101 |
|
102 "Modified (format): / 04-02-2017 / 21:32:11 / cg" |
102 ! |
103 ! |
103 |
104 |
104 whichView |
105 whichView |
105 "return the value of the instance variable 'whichView' (automatically generated)" |
106 "return the value of the instance variable 'whichView' (automatically generated)" |
106 |
107 |
190 ! ! |
191 ! ! |
191 |
192 |
192 !FileBrowserV2PanelView class methodsFor:'documentation'! |
193 !FileBrowserV2PanelView class methodsFor:'documentation'! |
193 |
194 |
194 version |
195 version |
195 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2PanelView.st,v 1.4 2004-08-04 17:59:43 cg Exp $' |
196 ^ '$Header$' |
196 ! ! |
197 ! ! |
|
198 |