Newsgroups: comp.lang.smalltalk
Path: cantaloupe.srv.cs.cmu.edu!bb3.andrew.cmu.edu!newsfeed.pitt.edu!CTCnet!news.math.psu.edu!news.cse.psu.edu!uwm.edu!cs.utexas.edu!howland.reston.ans.net!newsfeed.internetmci.com!news2.cais.net!news.cais.net!peer.news.xara.net!xara.net!netcom.net.uk!ix.netcom.com!ix.netcom.com!ixnews1.ix.netcom.com!netcom.com!sehyo
From: sehyo@netcom.com (Sehyo Chang)
Subject: Re: Using icons in a ListView on VW????
Message-ID: <sehyoDq0wAw.Bq@netcom.com>
Organization: NETCOM On-line Communication Services (408 261-4700 guest)
X-Newsreader: TIN [version 1.2 PL1]
References: <4l3av9$1rl@news.orst.edu>
Date: Wed, 17 Apr 1996 20:16:08 GMT
Lines: 34
Sender: sehyo@netcom20.netcom.com

Robert Wilson (wilsonr@ucs.orst.edu) wrote:
: I'm trying to use Icons in a SelectionInListView, but the ListView keeps
: cutting my icons, below is my current postBuildWoth: method.

: postBuildWith: aBuilder 

: widget := (builder componentAt: #activeList) widget.
: 	widget
: 		selectedVisualBlock: 
: 			[:v :index | 
: 			| rw image |
: 			image := (iconDictionary at: (v sequence at: index) 					class).
: 			rw := ReversingWrapper on: image.
: 			rw reverse setValue: true.
: 			BoundedWrapper on: rw].
: 	widget
: 		visualBlock: 
: 			[:v :index | 
: 			|  image |
: 			image := (iconDictionary at: (v sequence at: index) 					class).
: 			BoundedWrapper on: image].

: //End

: Is their any way to change the lineGrid (a TextAttribute) for the ListView
: from this method???  I think that I'd also have to reset the baseline.

You can change the linegrid by directly by:

	'(builder componentAt: #activeList) widget lineGrid: anIconHeight'

Hope this helps.

-- sehyo
