equal
deleted
inserted
replaced
78 enableReload presentation changeItemProcess closeApplication |
78 enableReload presentation changeItemProcess closeApplication |
79 semaChangeItem wantToPrintAsHexDump printAsHexDump itemChanged |
79 semaChangeItem wantToPrintAsHexDump printAsHexDump itemChanged |
80 itemRemoved enableHexToggle md5CheckSum |
80 itemRemoved enableHexToggle md5CheckSum |
81 md5HashValueComputationProcess viewModifiedChannel |
81 md5HashValueComputationProcess viewModifiedChannel |
82 textEditorModificationTime checkModifiedBlock fileEncodingHolder |
82 textEditorModificationTime checkModifiedBlock fileEncodingHolder |
83 doNotShowFontDialog lockFileEncodingHolder' |
83 doNotShowFontDialog lockFileEncodingHolder enableSelectInBrowser' |
84 classVariableNames:'' |
84 classVariableNames:'' |
85 poolDictionaries:'' |
85 poolDictionaries:'' |
86 privateIn:FileApplicationNoteBook |
86 privateIn:FileApplicationNoteBook |
87 ! |
87 ! |
88 |
88 |
3526 translateLabel: true |
3526 translateLabel: true |
3527 isButton: true |
3527 isButton: true |
3528 labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon) |
3528 labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon) |
3529 ) |
3529 ) |
3530 (MenuItem |
3530 (MenuItem |
|
3531 label: '-' |
|
3532 ) |
|
3533 (MenuItem |
3531 label: 'Print' |
3534 label: 'Print' |
3532 itemValue: doPrint |
3535 itemValue: doPrint |
3533 translateLabel: true |
3536 translateLabel: true |
3534 isButton: true |
3537 isButton: true |
3535 labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon) |
3538 labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon) |
|
3539 ) |
|
3540 (MenuItem |
|
3541 label: '-' |
3536 ) |
3542 ) |
3537 (MenuItem |
3543 (MenuItem |
3538 activeHelpKey: #'Edit Source' |
3544 activeHelpKey: #'Edit Source' |
3539 label: 'Edit' |
3545 label: 'Edit' |
3540 itemValue: doEdit |
3546 itemValue: doEdit |
3541 translateLabel: true |
3547 translateLabel: true |
3542 isButton: true |
3548 isButton: true |
3543 labelImage: (ResourceRetriever ToolbarIconLibrary editFileIcon) |
3549 labelImage: (ResourceRetriever ToolbarIconLibrary editFileIcon) |
3544 ) |
3550 ) |
3545 (MenuItem |
3551 (MenuItem |
3546 #activeHelpKey: #closeTabButton |
3552 activeHelpKey: closeTabButton |
3547 label: 'Close' |
3553 label: 'Close' |
3548 itemValue: doClose |
3554 itemValue: doClose |
3549 translateLabel: true |
3555 translateLabel: true |
3550 isButton: true |
3556 isButton: true |
3551 startGroup: right |
3557 startGroup: right |
4405 |
4411 |
4406 ^ |
4412 ^ |
4407 #(Menu |
4413 #(Menu |
4408 ( |
4414 ( |
4409 (MenuItem |
4415 (MenuItem |
|
4416 activeHelpKey: saveFile |
4410 enabled: enableSave |
4417 enabled: enableSave |
4411 label: 'Save' |
4418 label: 'Save' |
4412 itemValue: accept |
4419 itemValue: accept |
4413 nameKey: Save |
4420 nameKey: Save |
4414 translateLabel: true |
4421 translateLabel: true |
4415 isButton: true |
4422 isButton: true |
4416 labelImage: (ResourceRetriever ToolbarIconLibrary saveTextToFileIcon) |
4423 labelImage: (ResourceRetriever ToolbarIconLibrary saveTextToFileIcon) |
4417 ) |
4424 ) |
4418 (MenuItem |
4425 (MenuItem |
|
4426 activeHelpKey: reloadFile |
4419 enabled: enableReload |
4427 enabled: enableReload |
4420 label: 'Reload' |
4428 label: 'Reload' |
4421 itemValue: reload |
4429 itemValue: reload |
4422 nameKey: Reload |
4430 nameKey: Reload |
4423 translateLabel: true |
4431 translateLabel: true |
4424 isButton: true |
4432 isButton: true |
4425 labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon) |
4433 labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon) |
4426 ) |
4434 ) |
4427 (MenuItem |
4435 (MenuItem |
|
4436 activeHelpKey: findInBrowser |
|
4437 enabled: enableSelectInBrowser |
|
4438 label: 'Select in Browser' |
|
4439 itemValue: selectInBrowser |
|
4440 nameKey: SelectInBrowser |
|
4441 translateLabel: true |
|
4442 isButton: true |
|
4443 labelImage: (ResourceRetriever ToolbarIconLibrary searchFileIcon) |
|
4444 ) |
|
4445 (MenuItem |
4428 label: '-' |
4446 label: '-' |
4429 ) |
4447 ) |
4430 (MenuItem |
4448 (MenuItem |
|
4449 activeHelpKey: print |
4431 enabled: enableHexToggle |
4450 enabled: enableHexToggle |
4432 label: 'Print' |
4451 label: 'Print' |
4433 itemValue: doPrint |
4452 itemValue: doPrint |
4434 nameKey: Print |
4453 nameKey: Print |
4435 translateLabel: true |
4454 translateLabel: true |
4438 ) |
4457 ) |
4439 (MenuItem |
4458 (MenuItem |
4440 label: '-' |
4459 label: '-' |
4441 ) |
4460 ) |
4442 (MenuItem |
4461 (MenuItem |
|
4462 activeHelpKey: toggleHexDisplay |
4443 enabled: enableHexToggle |
4463 enabled: enableHexToggle |
4444 label: 'Hex' |
4464 label: 'Hex' |
4445 translateLabel: true |
4465 translateLabel: true |
4446 isButton: true |
4466 isButton: true |
4447 indication: printAsHexDump |
4467 indication: printAsHexDump |
4449 ) |
4469 ) |
4450 (MenuItem |
4470 (MenuItem |
4451 label: '' |
4471 label: '' |
4452 ) |
4472 ) |
4453 (MenuItem |
4473 (MenuItem |
|
4474 activeHelpKey: showDifferences |
4454 label: 'Diff to Current' |
4475 label: 'Diff to Current' |
4455 itemValue: openDiffView |
4476 itemValue: openDiffView |
4456 translateLabel: true |
4477 translateLabel: true |
4457 isButton: true |
4478 isButton: true |
4458 labelImage: (ResourceRetriever ToolbarIconLibrary diffIcon) |
4479 labelImage: (ResourceRetriever ToolbarIconLibrary diffIcon) |
4675 fileSize := file fileSize. |
4696 fileSize := file fileSize. |
4676 fileSize isNil ifTrue:[ |
4697 fileSize isNil ifTrue:[ |
4677 ^ nil |
4698 ^ nil |
4678 ]. |
4699 ]. |
4679 |
4700 |
|
4701 self enableSelectInBrowser value:true. |
|
4702 |
4680 presentation := self presentation. |
4703 presentation := self presentation. |
4681 presentation == #asText ifTrue:[ |
4704 presentation == #asText ifTrue:[ |
4682 fileSize > (4 * 1024 * 1024) ifTrue:[ |
4705 fileSize > (4 * 1024 * 1024) ifTrue:[ |
4683 answer := Dialog |
4706 answer := Dialog |
4684 confirmWithCancel:(resources |
4707 confirmWithCancel:(resources |
4916 pattern := aContentsPattern string withoutSeparators. "/ is that a good idea ? |
4939 pattern := aContentsPattern string withoutSeparators. "/ is that a good idea ? |
4917 pattern notEmpty ifTrue:[ |
4940 pattern notEmpty ifTrue:[ |
4918 editView rememberSearchPattern:pattern. |
4941 editView rememberSearchPattern:pattern. |
4919 editView searchFwd:pattern ignoreCase:ign. |
4942 editView searchFwd:pattern ignoreCase:ign. |
4920 ] |
4943 ] |
|
4944 ! |
|
4945 |
|
4946 selectInBrowser |
|
4947 |application| |
|
4948 |
|
4949 application := self masterApplication. |
|
4950 application notNil ifTrue:[ |
|
4951 application gotoFile:(self fileName). |
|
4952 ]. |
4921 ! |
4953 ! |
4922 |
4954 |
4923 setContents |
4955 setContents |
4924 |text| |
4956 |text| |
4925 |
4957 |
5107 enableSave |
5139 enableSave |
5108 enableSave isNil ifTrue:[ |
5140 enableSave isNil ifTrue:[ |
5109 enableSave := false asValue. |
5141 enableSave := false asValue. |
5110 ]. |
5142 ]. |
5111 ^ enableSave. |
5143 ^ enableSave. |
|
5144 ! |
|
5145 |
|
5146 enableSelectInBrowser |
|
5147 enableSelectInBrowser isNil ifTrue:[ |
|
5148 enableSelectInBrowser := false asValue. |
|
5149 ]. |
|
5150 ^ enableSelectInBrowser. |
5112 ! |
5151 ! |
5113 |
5152 |
5114 fileContentsModel |
5153 fileContentsModel |
5115 fileContentsModel isNil ifTrue:[ |
5154 fileContentsModel isNil ifTrue:[ |
5116 fileContentsModel := ValueHolder new. |
5155 fileContentsModel := ValueHolder new. |
5962 ! ! |
6001 ! ! |
5963 |
6002 |
5964 !FileApplicationNoteBook class methodsFor:'documentation'! |
6003 !FileApplicationNoteBook class methodsFor:'documentation'! |
5965 |
6004 |
5966 version |
6005 version |
5967 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.223 2008-03-10 09:03:33 mb Exp $' |
6006 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.224 2008-04-30 12:08:25 cg Exp $' |
5968 ! ! |
6007 ! ! |