867 !ChangeList methodsFor:'event processing'! |
867 !ChangeList methodsFor:'event processing'! |
868 |
868 |
869 handlesKeyPress:key inView:aView |
869 handlesKeyPress:key inView:aView |
870 <resource: #keyboard (#Accept #Ctrls)> |
870 <resource: #keyboard (#Accept #Ctrls)> |
871 |
871 |
872 (super handlesKeyPress:key inView:aView) |
872 ^ (super handlesKeyPress:key inView:aView) |
873 or:[(key == #Accept or:[ key == #Ctrls]) |
873 or:[(key == #Accept or:[ key == #Ctrls]) |
874 and:[ listView scrolledView == aView ]] |
874 and:[ listView scrolledView == aView ]] |
875 |
875 |
876 "Created: / 08-02-2012 / 14:43:11 / cg" |
876 "Created: / 08-02-2012 / 14:43:11 / cg" |
877 "Modified: / 10-04-2014 / 11:31:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
877 "Modified: / 24-04-2015 / 01:08:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
878 ! |
878 ! |
879 |
879 |
880 keyPress:key x:x y:y view:aView |
880 keyPress:key x:x y:y view:aView |
881 (key == #Accept or:[ key == #Ctrls]) ifTrue:[ |
881 (key == #Accept or:[ key == #Ctrls]) ifTrue:[ |
882 self listMenuApply. |
882 self listMenuApply. |
883 ^ self |
883 ^ true |
884 ]. |
884 ]. |
885 |
885 |
886 super keyPress:key x:x y:y view:aView |
886 ^ super keyPress:key x:x y:y view:aView |
887 |
887 |
888 "Created: / 08-02-2012 / 14:42:18 / cg" |
888 "Created: / 08-02-2012 / 14:42:18 / cg" |
889 "Modified: / 10-04-2014 / 11:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
889 "Modified: / 24-04-2015 / 01:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
890 ! ! |
890 ! ! |
891 |
891 |
892 !ChangeList methodsFor:'generators'! |
892 !ChangeList methodsFor:'generators'! |
893 |
893 |
894 makeGenerator |
894 makeGenerator |
1222 parentOrModel |
1222 parentOrModel |
1223 |
1223 |
1224 ^self |
1224 ^self |
1225 |
1225 |
1226 "Created: / 05-12-2009 / 14:14:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1226 "Created: / 05-12-2009 / 14:14:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1227 ! |
|
1228 |
|
1229 redrawList |
|
1230 listView notNil ifTrue:[ |
|
1231 listView columnView invalidate. |
|
1232 ]. |
|
1233 |
|
1234 "Created: / 24-04-2015 / 00:50:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1235 "Modified: / 25-04-2015 / 22:14:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1236 ! |
|
1237 |
|
1238 redrawListItem: item |
|
1239 | index | |
|
1240 |
|
1241 listView notNil ifTrue:[ |
|
1242 index := listView list identityIndexOf: item. |
|
1243 index ~~ 0 ifTrue:[ |
|
1244 listView columnView invalidateRowAt: index. |
|
1245 ]. |
|
1246 ] |
|
1247 |
|
1248 "Created: / 25-04-2015 / 22:12:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1249 ! |
|
1250 |
|
1251 redrawListItemAt: index |
|
1252 listView notNil ifTrue:[ |
|
1253 index ~~ 0 ifTrue:[ |
|
1254 listView columnView invalidateRowAt: index. |
|
1255 ]. |
|
1256 ] |
|
1257 |
|
1258 "Created: / 25-04-2015 / 22:17:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1227 ! |
1259 ! |
1228 |
1260 |
1229 updateList |
1261 updateList |
1230 |inGenerator changeset firstLineShown oldSel newList newSel| |
1262 |inGenerator changeset firstLineShown oldSel newList newSel| |
1231 |
1263 |
1640 |
1675 |
1641 "Created: / 04-12-2011 / 14:45:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1676 "Created: / 04-12-2011 / 14:45:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1642 "Modified (format): / 27-07-2012 / 21:25:34 / cg" |
1677 "Modified (format): / 27-07-2012 / 21:25:34 / cg" |
1643 ! ! |
1678 ! ! |
1644 |
1679 |
|
1680 !ChangeList::ListEntry methodsFor:'redrawing'! |
|
1681 |
|
1682 redraw |
|
1683 "Trigger redraw of reciver." |
|
1684 application redrawListItem: self |
|
1685 |
|
1686 "Created: / 25-04-2015 / 22:10:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1687 ! ! |
|
1688 |
1645 !ChangeList class methodsFor:'documentation'! |
1689 !ChangeList class methodsFor:'documentation'! |
1646 |
1690 |
1647 version |
1691 version |
1648 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $' |
1692 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $' |
1649 ! |
1693 ! |
1650 |
1694 |
1651 version_CVS |
1695 version_CVS |
1652 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $' |
1696 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $' |
1653 ! |
1697 ! |
1654 |
1698 |
|
1699 version_HG |
|
1700 |
|
1701 ^ '$Changeset: <not expanded> $' |
|
1702 ! |
|
1703 |
1655 version_SVN |
1704 version_SVN |
1656 ^ '$Id: Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $' |
1705 ^ '$Id: Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $' |
1657 ! ! |
1706 ! ! |
1658 |
1707 |