equal
deleted
inserted
replaced
1865 path := Smalltalk getSystemFileName:file. |
1865 path := Smalltalk getSystemFileName:file. |
1866 (path notNil and:[path asFilename isReadable]) ifTrue:[ |
1866 (path notNil and:[path asFilename isReadable]) ifTrue:[ |
1867 type == #html ifTrue:[ |
1867 type == #html ifTrue:[ |
1868 wsApp addWindow:(htmlView := HVScrollableView for:HTMLDocumentView) named:title asFirst:false. |
1868 wsApp addWindow:(htmlView := HVScrollableView for:HTMLDocumentView) named:title asFirst:false. |
1869 htmlView homeDocument:path. |
1869 htmlView homeDocument:path. |
|
1870 htmlView infoHolder:wsApp infoLabelHolder. |
1870 htmlView updateTopViewsTitleFlag:false. |
1871 htmlView updateTopViewsTitleFlag:false. |
1871 ] ifFalse:[ |
1872 ] ifFalse:[ |
1872 wsApp addWindow:(pane := self createWorkspaceView) named:title asFirst:false. |
1873 wsApp addWindow:(pane := self createWorkspaceView) named:title asFirst:false. |
1873 forcedEncoding notNil ifTrue:[ |
1874 forcedEncoding notNil ifTrue:[ |
1874 encoding := forcedEncoding. |
1875 encoding := forcedEncoding. |
4279 ! ! |
4280 ! ! |
4280 |
4281 |
4281 !WorkspaceApplication class methodsFor:'documentation'! |
4282 !WorkspaceApplication class methodsFor:'documentation'! |
4282 |
4283 |
4283 version |
4284 version |
4284 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.266 2014-05-15 13:09:47 stefan Exp $' |
4285 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.267 2014-06-03 16:54:51 cg Exp $' |
4285 ! |
4286 ! |
4286 |
4287 |
4287 version_CVS |
4288 version_CVS |
4288 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.266 2014-05-15 13:09:47 stefan Exp $' |
4289 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.267 2014-06-03 16:54:51 cg Exp $' |
4289 ! |
4290 ! |
4290 |
4291 |
4291 version_SVN |
4292 version_SVN |
4292 ^ '$Id: WorkspaceApplication.st,v 1.266 2014-05-15 13:09:47 stefan Exp $' |
4293 ^ '$Id: WorkspaceApplication.st,v 1.267 2014-06-03 16:54:51 cg Exp $' |
4293 ! ! |
4294 ! ! |
4294 |
4295 |