Tools__ChangeSetBrowser2.st
changeset 10665 bbaa7c4154de
parent 10658 3c26332add1f
child 10666 6930bb15d213
equal deleted inserted replaced
10664:a3c3b49e35ff 10665:bbaa7c4154de
  1488             ]
  1488             ]
  1489         ].
  1489         ].
  1490         (methods includes:nil) ifTrue:[
  1490         (methods includes:nil) ifTrue:[
  1491             Dialog warn:('%1 methods are not present in the image' bindWith:(methods occurrencesOf:nil)).
  1491             Dialog warn:('%1 methods are not present in the image' bindWith:(methods occurrencesOf:nil)).
  1492             methods := methods reject:[:m | m isNil].
  1492             methods := methods reject:[:m | m isNil].
       
  1493             methods isEmpty ifTrue:[^ self].
  1493         ].
  1494         ].
  1494         UserPreferences current systemBrowserClass 
  1495         UserPreferences current systemBrowserClass 
  1495             browseMethods:methods title:'selected monticello methods' sort:false.
  1496             browseMethods:methods title:'selected monticello methods' sort:false.
  1496     ].
  1497     ].
  1497 
  1498 
  1498     "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1499     "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1499     "Modified: / 31-08-2011 / 11:30:21 / cg"
  1500     "Modified: / 05-09-2011 / 10:38:51 / cg"
  1500 !
  1501 !
  1501 
  1502 
  1502 changeMenuDeleteSelection: changeList
  1503 changeMenuDeleteSelection: changeList
  1503 
  1504 
  1504     self selectionDo:[:chg|chg removed: true]
  1505     self selectionDo:[:chg|chg removed: true]
  1791 ! !
  1792 ! !
  1792 
  1793 
  1793 !ChangeSetBrowser2 class methodsFor:'documentation'!
  1794 !ChangeSetBrowser2 class methodsFor:'documentation'!
  1794 
  1795 
  1795 version
  1796 version
  1796     ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.15 2011-08-31 17:00:57 cg Exp $'
  1797     ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.16 2011-09-05 13:43:33 cg Exp $'
  1797 !
  1798 !
  1798 
  1799 
  1799 version_CVS
  1800 version_CVS
  1800     ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.15 2011-08-31 17:00:57 cg Exp $'
  1801     ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.16 2011-09-05 13:43:33 cg Exp $'
  1801 !
  1802 !
  1802 
  1803 
  1803 version_SVN
  1804 version_SVN
  1804     ^ '§Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 §'
  1805     ^ '§Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 §'
  1805 ! !
  1806 ! !