equal
deleted
inserted
replaced
19 fontAscent fontIsFixedWidth fontWidth autoScroll autoScrollBlock |
19 fontAscent fontIsFixedWidth fontWidth autoScroll autoScrollBlock |
20 autoScrollDeltaT wordCheck includesNonStrings widthOfWidestLine |
20 autoScrollDeltaT wordCheck includesNonStrings widthOfWidestLine |
21 listMsg viewOrigin listChannel backgroundAlreadyClearedColor |
21 listMsg viewOrigin listChannel backgroundAlreadyClearedColor |
22 scrollWhenUpdating' |
22 scrollWhenUpdating' |
23 classVariableNames:'DefaultForegroundColor DefaultBackgroundColor DefaultTabPositions |
23 classVariableNames:'DefaultForegroundColor DefaultBackgroundColor DefaultTabPositions |
24 DefaultLeftMargin DefaultTopMargin' |
24 UserDefaultTabPositions DefaultLeftMargin DefaultTopMargin' |
25 poolDictionaries:'' |
25 poolDictionaries:'' |
26 category:'Views-Text' |
26 category:'Views-Text' |
27 ! |
27 ! |
28 |
28 |
29 !ListView class methodsFor:'documentation'! |
29 !ListView class methodsFor:'documentation'! |
332 ! ! |
332 ! ! |
333 |
333 |
334 !ListView class methodsFor:'defaults'! |
334 !ListView class methodsFor:'defaults'! |
335 |
335 |
336 defaultTabPositions |
336 defaultTabPositions |
337 "return an array containing the default tab positions" |
337 "return an array containing the styleSheets default tab positions" |
338 |
338 |
339 ^ self tab8Positions |
339 ^ DefaultTabPositions ? self tab8Positions |
|
340 ! |
|
341 |
|
342 defaultTabPositions:aVector |
|
343 "set the array containing the styleSheets tab positions" |
|
344 |
|
345 DefaultTabPositions := aVector |
|
346 |
|
347 " |
|
348 self defaultTabPositions:(self tab4Positions) |
|
349 " |
340 ! |
350 ! |
341 |
351 |
342 tab4Positions |
352 tab4Positions |
343 "return an array containing tab positions for 4-col tabs" |
353 "return an array containing tab positions for 4-col tabs" |
344 |
354 |
366 DefaultTabPositions isNil ifTrue:[DefaultTabPositions := self defaultTabPositions]. |
376 DefaultTabPositions isNil ifTrue:[DefaultTabPositions := self defaultTabPositions]. |
367 DefaultLeftMargin := 0.5. |
377 DefaultLeftMargin := 0.5. |
368 DefaultTopMargin := 0.5. |
378 DefaultTopMargin := 0.5. |
369 |
379 |
370 "Modified: 20.10.1997 / 15:05:30 / cg" |
380 "Modified: 20.10.1997 / 15:05:30 / cg" |
|
381 ! |
|
382 |
|
383 userDefaultTabPositions |
|
384 "return an array containing the users default tab positions" |
|
385 |
|
386 ^ UserDefaultTabPositions |
|
387 ! |
|
388 |
|
389 userDefaultTabPositions:aVector |
|
390 "set the array containing the users tab positions" |
|
391 |
|
392 UserDefaultTabPositions := aVector |
|
393 |
|
394 " |
|
395 self userDefaultTabPositions:(self tab4Positions) |
|
396 " |
371 ! ! |
397 ! ! |
372 |
398 |
373 !ListView methodsFor:'accessing'! |
399 !ListView methodsFor:'accessing'! |
374 |
400 |
375 backgroundColor |
401 backgroundColor |
1977 firstLineShown := 1. |
2003 firstLineShown := 1. |
1978 nFullLinesShown := 1. "just any value ..." |
2004 nFullLinesShown := 1. "just any value ..." |
1979 nLinesShown := 1. "just any value" |
2005 nLinesShown := 1. "just any value" |
1980 leftOffset := 0. |
2006 leftOffset := 0. |
1981 partialLines := true. |
2007 partialLines := true. |
1982 tabPositions := DefaultTabPositions. |
2008 tabPositions := UserDefaultTabPositions ? DefaultTabPositions. |
1983 includesNonStrings := false. |
2009 includesNonStrings := false. |
1984 self getFontParameters. |
2010 self getFontParameters. |
1985 wordCheck := [:char | char isNationalAlphaNumeric]. |
2011 wordCheck := [:char | char isNationalAlphaNumeric]. |
1986 scrollWhenUpdating := #beginOfText. |
2012 scrollWhenUpdating := #beginOfText. |
1987 |
2013 |
4213 "set 8-character tab stops" |
4239 "set 8-character tab stops" |
4214 |
4240 |
4215 tabPositions := self class tab8Positions. |
4241 tabPositions := self class tab8Positions. |
4216 ! |
4242 ! |
4217 |
4243 |
|
4244 setTabPositions:aVector |
|
4245 "set tab stops" |
|
4246 |
|
4247 tabPositions := aVector. |
|
4248 ! |
|
4249 |
4218 withTabs:line |
4250 withTabs:line |
4219 "Assuming an 8-character tab, |
4251 "Assuming an 8-character tab, |
4220 compress multiple leading spaces to tabs, return a new line string |
4252 compress multiple leading spaces to tabs, return a new line string |
4221 or the original line, if no tabs where created. |
4253 or the original line, if no tabs where created. |
4222 good idea, to make this one a primitive, since its called |
4254 good idea, to make this one a primitive, since its called |
4314 ! ! |
4346 ! ! |
4315 |
4347 |
4316 !ListView class methodsFor:'documentation'! |
4348 !ListView class methodsFor:'documentation'! |
4317 |
4349 |
4318 version |
4350 version |
4319 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.252 2001-04-09 12:25:26 cg Exp $' |
4351 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.253 2001-06-22 08:42:14 cg Exp $' |
4320 ! ! |
4352 ! ! |