equal
deleted
inserted
replaced
378 |
378 |
379 s := ''. |
379 s := ''. |
380 tab := Character tab asString. |
380 tab := Character tab asString. |
381 nSub := strings size. |
381 nSub := strings size. |
382 1 to:nSub do:[:subStringIndex | |
382 1 to:nSub do:[:subStringIndex | |
383 sub := strings at:subStringIndex. |
383 sub := strings at:subStringIndex. |
384 sub notNil ifTrue:[ |
384 sub notNil ifTrue:[ |
385 s := s , sub. |
385 sub isString ifTrue:[ |
386 ]. |
386 s := s , sub. |
387 subStringIndex == nSub ifFalse:[ |
387 ] |
388 s := s , tab |
388 ]. |
389 ] |
389 subStringIndex == nSub ifFalse:[ |
|
390 s := s , tab |
|
391 ] |
390 ]. |
392 ]. |
391 |
393 |
392 ^ s |
394 ^ s |
393 |
395 |
394 "Created: 24.11.1995 / 18:54:27 / cg" |
396 "Created: 24.11.1995 / 18:54:27 / cg" |
|
397 "Modified: 17.4.1997 / 03:21:13 / cg" |
395 ! ! |
398 ! ! |
396 |
399 |
397 !MultiColListEntry methodsFor:'defaults'! |
400 !MultiColListEntry methodsFor:'defaults'! |
398 |
401 |
399 defaultTabSpec |
402 defaultTabSpec |
525 ! ! |
528 ! ! |
526 |
529 |
527 !MultiColListEntry class methodsFor:'documentation'! |
530 !MultiColListEntry class methodsFor:'documentation'! |
528 |
531 |
529 version |
532 version |
530 ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.20 1997-04-15 08:08:12 cg Exp $' |
533 ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.21 1997-04-17 01:33:48 cg Exp $' |
531 ! ! |
534 ! ! |