equal
deleted
inserted
replaced
4596 |
4596 |
4597 self painter isModified ifTrue:[ |
4597 self painter isModified ifTrue:[ |
4598 self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs. |
4598 self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs. |
4599 ]. |
4599 ]. |
4600 |
4600 |
4601 UserPreferences systemBrowserClass openInClass:(self resolveName:specClassName) |
4601 Smalltalk browseInClass:(self resolveName:specClassName) |
4602 ! |
4602 ! |
4603 |
4603 |
4604 doBrowseSpecificationClass |
4604 doBrowseSpecificationClass |
4605 "opens an browser on the spec class of the selected widget" |
4605 "opens an browser on the spec class of the selected widget" |
4606 |
4606 |