equal
deleted
inserted
replaced
1903 !BreakpointBrowser::BreakpointListEntry methodsFor:'actions'! |
1903 !BreakpointBrowser::BreakpointListEntry methodsFor:'actions'! |
1904 |
1904 |
1905 browse |
1905 browse |
1906 |browser| |
1906 |browser| |
1907 |
1907 |
1908 browser := UserPreferences systemBrowserClass |
1908 browser := SystemBrowser default |
1909 openInClass:(Smalltalk classNamed:className) selector:selector. |
1909 openInClass:(Smalltalk classNamed:className) |
|
1910 selector:selector. |
1910 |
1911 |
1911 lineNumber notNil ifTrue:[ |
1912 lineNumber notNil ifTrue:[ |
1912 browser codeView |
1913 browser codeView |
1913 cursorLine:lineNumber col:1; |
1914 cursorLine:lineNumber col:1; |
1914 selectLine:lineNumber. |
1915 selectLine:lineNumber. |
1915 ]. |
1916 ]. |
|
1917 |
|
1918 "Modified: / 01-09-2017 / 14:22:07 / cg" |
1916 ! |
1919 ! |
1917 |
1920 |
1918 method |
1921 method |
1919 ^ (Smalltalk classNamed:className) compiledMethodAt:selector. |
1922 ^ (Smalltalk classNamed:className) compiledMethodAt:selector. |
1920 ! ! |
1923 ! ! |