hg/stx-libtool: comparison BrowserView.st

equal deleted inserted replaced

-:d0782fb4dfd3
+:1b0b1520670b
 ] ifFalse:[
 spc := 0
 ].
 vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
+vpanel snapMode:#both.
 hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
 v := HVScrollableView for:SelectionInListView
 miniScrollerH:true miniScrollerV:false
 in:hpanel.
 "create subviews for browsing a single class"
 |vpanel hpanel frame v|
 vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
+vpanel snapMode:#both.
 hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
 frame := View origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)in:hpanel.
 styleSheet name == #win95 ifTrue:[frame rightInset:1].
 self createTogglesIn:frame.
 v := ScrollableView for:SelectionInListView in:frame.
 v origin:(0.0 @ 0.0)
 extent:[frame width
-	      @
+@
-	      (frame height
+(frame height
-	       - ViewSpacing
+- ViewSpacing
-	       - instanceToggle height
+- instanceToggle height
-	       - instanceToggle borderWidth
+- instanceToggle borderWidth
-	       + v borderWidth)].
++ v borderWidth)].
 methodCategoryListView := v scrolledView.
 methodCategoryListView delegate:self.
 self createMethodListViewIn:hpanel atX:0.5.
 self createCodeViewIn:vpanel.
 "setup subviews to browse a method category"
 |vpanel v|
 vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
+vpanel snapMode:#both.
 v := self createMethodListViewIn:vpanel atX:0.0.
 v corner:(1.0 @ 0.25).
 self createCodeViewIn:vpanel.
 "setup subviews to browse a class category"
 |vpanel hpanel frame v|
 vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
+vpanel snapMode:#both.
 hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
 frame  := View origin:(0.0 @ 0.0) corner:(0.33 @ 1.0) in:hpanel.
 styleSheet name == #win95 ifTrue:[frame rightInset:1].
 "setup subviews to browse a class hierarchy"
 |vpanel hpanel frame v cls|
 vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
+vpanel snapMode:#both.
 "
 notice: we use a different ratio here
 "
 hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.4) in:vpanel.
 self createMethodListViewIn:hpanel atX:0.66.
 self createCodeViewIn:vpanel atY:0.4.
 cls := aClass.
 cls isMeta ifTrue:[
-	cls := cls soleInstance
+cls := cls soleInstance
 ].
 currentClassHierarchy := currentClass := actualClass := cls.
 self updateClassList.
 classListView setSelectElement:aClass name; makeSelectionVisible.
 self updateMethodCategoryList.
 self updateMethodList.
 self updateCodeView.
 aClass isMeta ifTrue:[
-	self instanceProtocol:false
+self instanceProtocol:false
 ].
 "Modified: / 15.9.1998 / 22:21:03 / cg"
 !
 "setup subviews to browse classes from a list"
 |vpanel hpanel frame l v|
 vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
+vpanel snapMode:#both.
 hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
 frame := View origin:(0.0 @ 0.0) corner:(0.33 @ 1.0) in:hpanel.
 styleSheet name == #win95 ifTrue:[frame rightInset:1].
 self createMethodListViewIn:hpanel atX:0.66.
 self createCodeViewIn:vpanel.
 l := (aList collect:[:entry |
-		entry isBehavior ifTrue:[
+entry isBehavior ifTrue:[
-		    entry name
+entry name
-		] ifFalse:[
+] ifFalse:[
-		    entry
+entry
-		]]) asOrderedCollection.
+]]) asOrderedCollection.
 doSort ifTrue:[
-	l sort.
+l sort.
 ].
 classListView list:l.
 gotClassList := true.
 self updateMethodCategoryList.
 "setup subviews to browse a class as full text"
 |vpanel hpanel v|
 vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
+vpanel snapMode:#both.
 hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
 v := ScrollableView for:SelectionInListView in:hpanel.
 v origin:(0.0 @ 0.0) corner:(0.5 @ 1.0).
 "setup subviews to browse a classes full protocol"
 |vpanel hpanel frame v cls|
 vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
+vpanel snapMode:#both.
 "
 notice: we use a different ratio here
 "
 hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.4) in:vpanel.
 self createMethodListViewIn:hpanel atX:0.66.
 self createCodeViewIn:vpanel atY:0.4.
 cls := aClass.
 cls isMeta ifTrue:[
-	cls := cls soleInstance
+cls := cls soleInstance
 ].
 currentClassHierarchy := actualClass := acceptClass := currentClass := cls.
 fullProtocol := true.
 self updateClassList.
 self updateMethodCategoryList.
 self updateMethodList.
 self updateCodeView.
 self updateVariableList.
 aClass isMeta ifTrue:[
-	self instanceProtocol:false
+self instanceProtocol:false
 ].
 "Modified: / 15.9.1998 / 22:20:06 / cg"
 !
 "setup subviews to browse methods from a list"
 |vpanel v|
 vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
+vpanel snapMode:#both.
 v := ScrollableView for:SelectionInListView in:vpanel.
 v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
 classMethodListView := v scrolledView.
 classMethodListView contents:aList.
 classMethodListView doubleClickAction:[:lineNr | self classMethodBrowse].
 self createCodeViewIn:vpanel.
 aList size == 1 ifTrue:[
-	classMethodListView setSelection:1.
+classMethodListView setSelection:1.
-	self classMethodSelection:1.
+self classMethodSelection:1.
 ].
 self updateCodeView.
 "/ kludge - get trap icons
 self updateClassMethodListWithScroll:false keepSelection:true
 ! !
 !BrowserView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.631 2000-08-23 16:18:43 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.632 2000-08-30 10:11:55 cg Exp $'
 ! !
 BrowserView initialize!

changeset 2739	1b0b1520670b
parent 2733	d14737c26fca
child 2742	0e2c624f20c5