equal
deleted
inserted
replaced
455 ! ! |
455 ! ! |
456 |
456 |
457 !ListView class methodsFor:'defaults'! |
457 !ListView class methodsFor:'defaults'! |
458 |
458 |
459 defaultTabPositions |
459 defaultTabPositions |
460 "return an array containing the styleSheets default tab positions" |
460 "return an array containing the styleSheet's default tab positions" |
461 |
461 |
462 ^ DefaultTabPositions ? self tab4Positions |
462 ^ DefaultTabPositions ? self tab4Positions |
|
463 |
|
464 "Modified (comment): / 12-10-2017 / 13:15:41 / cg" |
463 ! |
465 ! |
464 |
466 |
465 defaultTabPositions:aVector |
467 defaultTabPositions:aVector |
466 "set the array containing the styleSheets tab positions" |
468 "set the array containing the styleSheet's tab positions" |
467 |
469 |
468 DefaultTabPositions := aVector |
470 DefaultTabPositions := aVector |
469 |
471 |
470 " |
472 " |
471 ListView defaultTabPositions:(ListView tab4Positions) |
473 ListView defaultTabPositions:(ListView tab4Positions) |
472 " |
474 " |
|
475 |
|
476 "Modified (comment): / 12-10-2017 / 13:15:32 / cg" |
473 ! |
477 ! |
474 |
478 |
475 tab4Positions |
479 tab4Positions |
476 "return an array containing tab positions for 4-col tabs" |
480 "return an array containing tab positions for 4-col tabs" |
477 |
481 |
503 |
507 |
504 "Modified: / 31-03-2016 / 10:49:45 / cg" |
508 "Modified: / 31-03-2016 / 10:49:45 / cg" |
505 ! |
509 ! |
506 |
510 |
507 userDefaultTabPositions |
511 userDefaultTabPositions |
508 "return an array containing the users default tab positions" |
512 "return an array containing the user's default tab positions" |
509 |
513 |
510 ^ UserDefaultTabPositions |
514 ^ UserDefaultTabPositions |
|
515 |
|
516 "Modified (comment): / 12-10-2017 / 13:15:19 / cg" |
511 ! |
517 ! |
512 |
518 |
513 userDefaultTabPositions:aVector |
519 userDefaultTabPositions:aVector |
514 "set the array containing the users tab positions" |
520 "set the array containing the user's tab positions" |
515 |
521 |
516 UserDefaultTabPositions := aVector |
522 UserDefaultTabPositions := aVector |
517 |
523 |
518 " |
524 " |
519 self userDefaultTabPositions:(self tab4Positions) |
525 self userDefaultTabPositions:(self tab4Positions) |
520 " |
526 " |
|
527 |
|
528 "Modified (comment): / 12-10-2017 / 13:15:13 / cg" |
521 ! ! |
529 ! ! |
522 |
530 |
523 !ListView methodsFor:'accessing'! |
531 !ListView methodsFor:'accessing'! |
524 |
532 |
525 innerHeight |
533 innerHeight |