Mercurial Mercurial > hg > stx-libwidg / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Workspace.st
changeset 6201 5493871b7dd2
parent 6170 32595ba6f28a
child 6223 5c12b231db19
equal deleted inserted replaced
6200:3d0e00c511ba 6201:5493871b7dd2 
  1604                     selector := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:na
 
  1604                     selector := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:na
 
  1605                 ].
 
  1605                 ].
 
  1606             ] ifFalse:[
 
  1606             ] ifFalse:[
 
  1607                 selector := SystemBrowser extractSelectorFrom:selectedText.
 
  1607                 selector := SystemBrowser extractSelectorFrom:selectedText.
 
  1608             ].
 
  1608             ].
 
  1609             browserClass := UserPreferences systemBrowserClass.
 
  1609             browserClass := SystemBrowser default.
 
  1610 
  1610 
  1611             (selector notNil and:[selector ~= selectedText]) ifTrue:[
 
  1611             (selector notNil and:[selector ~= selectedText]) ifTrue:[
 
  1612                 (SystemBrowser
 
  1612                 (SystemBrowser
 
  1613                         findImplementorsOfAny:(Array with:selectedText)
 
  1613                         findImplementorsOfAny:(Array with:selectedText)
 
  1614                         in:(Smalltalk allClasses)
 
  1614                         in:(Smalltalk allClasses)
 
  1643                 ]
 
  1643                 ]
 
  1644             ]
 
  1644             ]
 
  1645         ]
 
  1645         ]
 
  1646     ].
 
  1646     ].
 
  1647 
  1647 
  1648     "Created: / 5.11.2001 / 17:32:23 / cg"
 
  1648     "Created: / 05-11-2001 / 17:32:23 / cg"
 
  1649     "Modified: / 19.11.2001 / 22:15:17 / cg"
 
  1649     "Modified: / 01-09-2017 / 14:24:04 / cg"
 
  1650 !
 
  1650 !
 
  1651 
  1651 
  1652 browseIt
 
  1652 browseIt
 
  1653     "evaluate the code and open a browser on the resulting class (if it evaluates to one),
 
  1653     "evaluate the code and open a browser on the resulting class (if it evaluates to one),
 
  1654      or the class of the resulting object (if it does not evaluate to a class).
 
  1654      or the class of the resulting object (if it does not evaluate to a class).
 
  1758 
  1758 
  1759     |nameOfVariable browserClass sym|
 
  1759     |nameOfVariable browserClass sym|
 
  1760 
  1760 
  1761     nameOfVariable := self selectedTextOrSyntaxElement.
 
  1761     nameOfVariable := self selectedTextOrSyntaxElement.
 
  1762     nameOfVariable notEmptyOrNil ifTrue:[
 
  1762     nameOfVariable notEmptyOrNil ifTrue:[
 
  1763         browserClass := UserPreferences systemBrowserClass.
 
  1763         browserClass := SystemBrowser default.
 
  1764         self windowGroup withWaitCursorDo:[
 
  1764         self windowGroup withWaitCursorDo:[
 
  1765             |cls nonMeta privateClass|
 
  1765             |cls nonMeta privateClass|
 
  1766 
  1766 
  1767             (nameOfVariable startsWith:'#') ifTrue:[
 
  1767             (nameOfVariable startsWith:'#') ifTrue:[
 
  1768                 sym := (nameOfVariable copyFrom:2) asSymbolIfInterned.
 
  1768                 sym := (nameOfVariable copyFrom:2) asSymbolIfInterned.
 
  1825             ]
 
  1825             ]
 
  1826         ].
 
  1826         ].
 
  1827     ].
 
  1827     ].
 
  1828 
  1828 
  1829     "Created: / 05-11-2001 / 17:32:23 / cg"
 
  1829     "Created: / 05-11-2001 / 17:32:23 / cg"
 
  1830     "Modified: / 30-03-2016 / 20:33:17 / cg"
 
  1830     "Modified: / 01-09-2017 / 14:24:09 / cg"
 
  1831 !
 
  1831 !
 
  1832 
  1832 
  1833 browseSendersOfIt
 
  1833 browseSendersOfIt
 
  1834     "open a browser on the senders of the selected text"
 
  1834     "open a browser on the senders of the selected text"
 
  1835 
  1835 
  1836     |selectedText selector|
 
  1836     |selectedText selector|
 
  1837 
  1837 
  1838     selectedText := self selectedTextOrSyntaxElement.
 
  1838     selectedText := self selectedTextOrSyntaxElement.
 
  1839     selectedText notEmptyOrNil ifTrue:[
 
  1839     selectedText notEmptyOrNil ifTrue:[
 
  1840 	self windowGroup withWaitCursorDo:[
 
  1840         self windowGroup withWaitCursorDo:[
 
  1841 	    selector := SystemBrowser extractSelectorFrom:selectedText.
 
  1841             selector := SystemBrowser extractSelectorFrom:selectedText.
 
  1842 	    (UserPreferences systemBrowserClass)
 
  1842             SystemBrowser default
 
  1843 		browseAllCallsOn:(selector ? selectedText)
 
  1843                 browseAllCallsOn:(selector ? selectedText)
 
  1844 	]
 
  1844         ]
 
  1845     ].
 
  1845     ].
 
  1846 
  1846 
  1847     "Created: / 5.11.2001 / 17:32:23 / cg"
 
  1847     "Created: / 05-11-2001 / 17:32:23 / cg"
 
  1848     "Modified: / 19.11.2001 / 22:15:27 / cg"
 
  1848     "Modified: / 01-09-2017 / 14:24:13 / cg"
 
  1849 !
 
  1849 !
 
  1850 
  1850 
  1851 browseSharedPoolOfIt
 
  1851 browseSharedPoolOfIt
 
  1852     "open a browser on the shared pool in which the selected variable is"
 
  1852     "open a browser on the shared pool in which the selected variable is"
 
  1853 
  1853
hg/stx-libwidg