equal
deleted
inserted
replaced
717 ] ifFalse:[ |
717 ] ifFalse:[ |
718 tabList at:self selectedWorkspaceIndexHolder value put:label |
718 tabList at:self selectedWorkspaceIndexHolder value put:label |
719 ] |
719 ] |
720 ! |
720 ! |
721 |
721 |
|
722 loadFile:aFileName label:lbl |
|
723 |encoding| |
|
724 |
|
725 encoding := CharacterEncoder guessEncodingOfFile:aFileName. |
|
726 (encoding == #'iso8859-1' or:[encoding == #'ascii']) ifTrue:[ |
|
727 encoding := nil |
|
728 ]. |
|
729 self loadFile:aFileName encoding:encoding label:lbl. |
|
730 |
|
731 "Created: / 15-03-2007 / 11:52:21 / cg" |
|
732 ! |
|
733 |
722 menuLoad |
734 menuLoad |
723 |file| |
735 |file| |
724 |
736 |
725 (self askIfModified:'Text was modified. Load anyway ?' yesButton:'Load') ifFalse:[ ^ self]. |
737 (self askIfModified:'Text was modified. Load anyway ?' yesButton:'Load') ifFalse:[ ^ self]. |
726 |
738 |
1041 ! ! |
1053 ! ! |
1042 |
1054 |
1043 !MultiViewToolApplication class methodsFor:'documentation'! |
1055 !MultiViewToolApplication class methodsFor:'documentation'! |
1044 |
1056 |
1045 version |
1057 version |
1046 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.15 2007-02-21 15:03:02 cg Exp $' |
1058 ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.16 2007-03-15 10:54:57 cg Exp $' |
1047 ! ! |
1059 ! ! |