equal
deleted
inserted
replaced
957 |
957 |
958 abstractMethodIcon |
958 abstractMethodIcon |
959 "answer an icon to mark abstract methods" |
959 "answer an icon to mark abstract methods" |
960 |
960 |
961 ^ self fetchIcon:#abstractMethod selector:#abstractMethodIcon |
961 ^ self fetchIcon:#abstractMethod selector:#abstractMethodIcon |
|
962 ! |
|
963 |
|
964 breakPointedIcon |
|
965 "answer an icon to mark breakPointed methods" |
|
966 |
|
967 ^ self fetchIcon:#breakPointed selector:#breakPointedIcon |
962 ! |
968 ! |
963 |
969 |
964 canvasIcon |
970 canvasIcon |
965 "answer an icon to mark canvas spec methods" |
971 "answer an icon to mark canvas spec methods" |
966 |
972 |
1574 self makeDependent. |
1580 self makeDependent. |
1575 |
1581 |
1576 list := builder componentAt:#List. |
1582 list := builder componentAt:#List. |
1577 list notNil ifTrue:[ |
1583 list notNil ifTrue:[ |
1578 list selectConditionBlock:[:item | self selectionChangeAllowed]. |
1584 list selectConditionBlock:[:item | self selectionChangeAllowed]. |
1579 (list respondsTo:#ignoreReselect) ifTrue:[ |
1585 list ignoreReselect:false. |
1580 list ignoreReselect:false. |
|
1581 ] |
|
1582 ]. |
1586 ]. |
1583 |
1587 |
1584 UserPreferences current useInPlaceSearchInBrowserLists ifTrue:[ |
1588 UserPreferences current useInPlaceSearchInBrowserLists ifTrue:[ |
1585 self supportsSearch ifTrue:[ |
1589 self supportsSearch ifTrue:[ |
1586 list notNil ifTrue:[ |
1590 list notNil ifTrue:[ |
1589 self breakPoint: #jv info: 'Should support search but list is nil. Wrong spec?' |
1593 self breakPoint: #jv info: 'Should support search but list is nil. Wrong spec?' |
1590 ]. |
1594 ]. |
1591 ] |
1595 ] |
1592 ] |
1596 ] |
1593 |
1597 |
1594 "Modified: / 04-04-2013 / 18:47:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1598 "Modified: / 28-07-2011 / 09:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1595 ! |
1599 ! |
1596 |
1600 |
1597 commonPostOpen |
1601 commonPostOpen |
1598 super commonPostOpen. |
1602 super commonPostOpen. |
1599 listValid ifFalse:[ |
1603 listValid ifFalse:[ |
1611 ! ! |
1615 ! ! |
1612 |
1616 |
1613 !BrowserList::SearchHandler methodsFor:'event handling'! |
1617 !BrowserList::SearchHandler methodsFor:'event handling'! |
1614 |
1618 |
1615 keyPress:key x:x y:y view:aView |
1619 keyPress:key x:x y:y view:aView |
|
1620 <resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)> |
1616 |
1621 |
1617 | v | |
1622 | v | |
1618 |
1623 |
1619 aView == listView ifTrue:[ |
1624 aView == listView ifTrue:[ |
1620 |
1625 |
1660 ! ! |
1665 ! ! |
1661 |
1666 |
1662 !BrowserList::SearchHandler methodsFor:'event handling-queries'! |
1667 !BrowserList::SearchHandler methodsFor:'event handling-queries'! |
1663 |
1668 |
1664 handlesKeyPress:key inView:aView |
1669 handlesKeyPress:key inView:aView |
|
1670 <resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)> |
1665 |
1671 |
1666 aView == listView ifTrue:[ |
1672 aView == listView ifTrue:[ |
1667 key isCharacter ifTrue:[ |
1673 key isCharacter ifTrue:[ |
1668 ^true |
1674 ^true |
1669 ] |
1675 ] |
1670 ]. |
1676 ]. |
1671 aView == searchField ifTrue:[ |
1677 aView == searchField ifTrue:[ |
1672 (#(#Escape #Accept #Return #CursorUp CursorDown) includes: key) ifTrue:[ |
1678 (#(#Escape #Accept #Return #CursorUp #CursorDown) includes: key) ifTrue:[ |
1673 ^true |
1679 ^true |
1674 ] |
1680 ] |
1675 ]. |
1681 ]. |
1676 ^false |
1682 ^false |
1677 |
1683 |
1874 version |
1880 version |
1875 ^ '$Id: Tools__BrowserList.st 8086 2013-01-15 12:03:21Z vranyj1 $' |
1881 ^ '$Id: Tools__BrowserList.st 8086 2013-01-15 12:03:21Z vranyj1 $' |
1876 ! |
1882 ! |
1877 |
1883 |
1878 version_CVS |
1884 version_CVS |
1879 ^ '§Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.54 2012/12/12 15:38:00 cg Exp §' |
1885 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.57 2013/03/22 11:36:34 cg Exp $' |
1880 ! |
1886 ! |
1881 |
1887 |
1882 version_HG |
1888 version_HG |
1883 |
1889 |
1884 ^ '$Changeset: <not expanded> $' |
1890 ^ '$Changeset: <not expanded> $' |