4691 with:[:v | v printString] |
4691 with:[:v | v printString] |
4692 argument:editView cursorLineHolder. |
4692 argument:editView cursorLineHolder. |
4693 ! |
4693 ! |
4694 |
4694 |
4695 enableHexToggle |
4695 enableHexToggle |
4696 |
|
4697 enableHexToggle isNil ifTrue:[ |
4696 enableHexToggle isNil ifTrue:[ |
4698 enableHexToggle := true asValue. |
4697 enableHexToggle := true asValue. |
4699 ]. |
4698 ]. |
4700 ^ enableHexToggle |
4699 ^ enableHexToggle |
4701 ! |
4700 ! |
4702 |
4701 |
4703 enableReload |
4702 enableReload |
4704 |
|
4705 enableReload isNil ifTrue:[ |
4703 enableReload isNil ifTrue:[ |
4706 enableReload := false asValue. |
4704 enableReload := false asValue. |
4707 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
4708 "/ enableReload addDependent:self. |
|
4709 "/ enableReload onChangeSend:#enableReloadChanged to:self. |
|
4710 ]. |
4705 ]. |
4711 ^ enableReload. |
4706 ^ enableReload. |
4712 ! |
4707 ! |
4713 |
4708 |
4714 enableSave |
4709 enableSave |
4715 |
|
4716 enableSave isNil ifTrue:[ |
4710 enableSave isNil ifTrue:[ |
4717 enableSave := false asValue. |
4711 enableSave := false asValue. |
4718 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
4719 "/ enableSave addDependent:self. |
|
4720 "/ enableSave onChangeSend:#enableSaveChanged to:self. |
|
4721 ]. |
4712 ]. |
4722 ^ enableSave. |
4713 ^ enableSave. |
4723 ! |
4714 ! |
4724 |
4715 |
4725 fileContentsModel |
4716 fileContentsModel |
4726 |
|
4727 fileContentsModel isNil ifTrue:[ |
4717 fileContentsModel isNil ifTrue:[ |
4728 fileContentsModel := ValueHolder new. |
4718 fileContentsModel := ValueHolder new. |
4729 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
4730 "/ fileContentsModel addDependent:self. |
|
4731 "/ fileContentsModel onChangeSend:#fileContentsModelChanged to:self. |
|
4732 ]. |
4719 ]. |
4733 ^ fileContentsModel. |
4720 ^ fileContentsModel. |
4734 ! |
4721 ! |
4735 |
4722 |
4736 fileEncodingHolder |
4723 fileEncodingHolder |
4739 ]. |
4726 ]. |
4740 ^ fileEncodingHolder |
4727 ^ fileEncodingHolder |
4741 ! |
4728 ! |
4742 |
4729 |
4743 itemChanged |
4730 itemChanged |
4744 |
|
4745 itemChanged isNil ifTrue:[ |
4731 itemChanged isNil ifTrue:[ |
4746 itemChanged := false asValue. |
4732 itemChanged := false asValue. |
4747 itemChanged addDependent:self. |
4733 itemChanged addDependent:self. |
4748 ]. |
4734 ]. |
4749 ^ itemChanged |
4735 ^ itemChanged |
4750 ! |
4736 ! |
4751 |
4737 |
4752 itemRemoved |
4738 itemRemoved |
4753 |
|
4754 itemRemoved isNil ifTrue:[ |
4739 itemRemoved isNil ifTrue:[ |
4755 itemRemoved := false asValue. |
4740 itemRemoved := false asValue. |
4756 itemRemoved addDependent:self. |
4741 itemRemoved addDependent:self. |
4757 ]. |
4742 ]. |
4758 ^ itemRemoved |
4743 ^ itemRemoved |
4771 modeLabelHolder |
4756 modeLabelHolder |
4772 ^ editView modeLabelHolder. |
4757 ^ editView modeLabelHolder. |
4773 ! |
4758 ! |
4774 |
4759 |
4775 modifiedChannel |
4760 modifiedChannel |
4776 |
|
4777 modifiedChannel isNil ifTrue:[ |
4761 modifiedChannel isNil ifTrue:[ |
4778 modifiedChannel := false asValue. |
4762 modifiedChannel := false asValue. |
4779 modifiedChannel addDependent:self. |
4763 modifiedChannel addDependent:self. |
4780 ]. |
4764 ]. |
4781 ^ modifiedChannel. |
4765 ^ modifiedChannel. |
4782 ! |
4766 ! |
4783 |
4767 |
4784 printAsHexDump |
4768 printAsHexDump |
4785 |
|
4786 printAsHexDump isNil ifTrue:[ |
4769 printAsHexDump isNil ifTrue:[ |
4787 printAsHexDump := false asValue. |
4770 printAsHexDump := false asValue. |
4788 printAsHexDump addDependent:self. |
4771 printAsHexDump addDependent:self. |
4789 ]. |
4772 ]. |
4790 ^ printAsHexDump. |
4773 ^ printAsHexDump. |
4791 ! |
4774 ! |
4792 |
4775 |
4793 viewModifiedChannel |
4776 viewModifiedChannel |
4794 |
|
4795 viewModifiedChannel isNil ifTrue:[ |
4777 viewModifiedChannel isNil ifTrue:[ |
4796 viewModifiedChannel := false asValue. |
4778 viewModifiedChannel := false asValue. |
4797 viewModifiedChannel addDependent:self. |
4779 viewModifiedChannel addDependent:self. |
4798 ]. |
4780 ]. |
4799 ^ viewModifiedChannel. |
4781 ^ viewModifiedChannel. |
5045 editView parenthesisSpecification:parenthesis |
5027 editView parenthesisSpecification:parenthesis |
5046 ]. |
5028 ]. |
5047 ]. |
5029 ]. |
5048 |
5030 |
5049 commentStrings := MIMETypes |
5031 commentStrings := MIMETypes |
5050 commentStringsForFilename:(self fileName) |
5032 commentStringsForMimeType:mimeType |
|
5033 suffix:(self fileName asFilename suffix) |
5051 ifUnknown:[ |
5034 ifUnknown:[ |
5052 "/ st: |
5035 "/ st: |
5053 #('"/' ('"' '"')) |
5036 #('"/' ('"' '"')) |
5054 ]. |
5037 ]. |
|
5038 |
5055 commentStrings notNil ifTrue:[ |
5039 commentStrings notNil ifTrue:[ |
5056 editView perform:#commentStrings: with:commentStrings ifNotUnderstood:nil |
5040 editView perform:#commentStrings: with:commentStrings ifNotUnderstood:nil |
5057 ]. |
5041 ]. |
5058 |
5042 |
5059 ]. |
5043 ]. |