--- a/SubCanvas.st Mon May 11 17:04:24 2015 +0200
+++ b/SubCanvas.st Mon May 11 22:06:00 2015 +0200
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libwidg2' }"
+"{ NameSpace: Smalltalk }"
+
ScrollableView subclass:#SubCanvas
instanceVariableNames:'builder spec client clientHolder specHolder clientView
clientViewIsScrolled lateBuild useApplicationSubView
@@ -445,7 +447,11 @@
].
self realized ifTrue:[
+ "/ cg: I think we should call
+ "/ clientView recursiveRealizeAllSubViews.
+ "/ instead of:
clientView realizeAllSubViews.
+
clientViewIsScrolled ifTrue:[
scrolledView repositionScrolledView.
scrolledView resizeScrolledView
@@ -598,10 +604,10 @@
!SubCanvas class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.69 2014-06-07 15:13:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.70 2015-05-11 20:06:00 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.69 2014-06-07 15:13:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.70 2015-05-11 20:06:00 cg Exp $'
! !