FileApplicationNoteBook.st
changeset 7103 a95f550bd9bd
parent 6833 caeedd92f25c
child 7288 25108c48af42
equal deleted inserted replaced
7102:cd8f9b51dd75 7103:a95f550bd9bd
   871         ifAbsent:[
   871         ifAbsent:[
   872             IndirectValue for:(' ' asValue)
   872             IndirectValue for:(' ' asValue)
   873         ]
   873         ]
   874 !
   874 !
   875 
   875 
       
   876 modeLabelMenu       
       
   877     |app|
       
   878 
       
   879     (app := self selectedApplication) notNil ifTrue:[
       
   880         ^ app modeLabelMenu
       
   881     ].
       
   882     ^ nil
       
   883 
       
   884     "Created: / 11-09-2006 / 12:33:27 / cg"
       
   885 !
       
   886 
       
   887 modeLabelMenuHolder
       
   888     ^ self 
       
   889         aspectFor:#modeLabelMenuHolder 
       
   890         ifAbsent:[
       
   891             IndirectValue for:(nil asValue)
       
   892         ]
       
   893 
       
   894     "Created: / 11-09-2006 / 12:28:08 / cg"
       
   895 !
       
   896 
   876 privateTabList
   897 privateTabList
   877 
   898 
   878     privateTabList isNil ifTrue:[
   899     privateTabList isNil ifTrue:[
   879         privateTabList := List new.
   900         privateTabList := List new.
   880         privateTabList addDependent:self.
   901         privateTabList addDependent:self.
   911 canvasChanged
   932 canvasChanged
   912     "invoked when the contentsView has been changed"
   933     "invoked when the contentsView has been changed"
   913 
   934 
   914     |app|
   935     |app|
   915 
   936 
   916     app := canvasHolder value application.
   937     app := self selectedApplication.
   917 
   938 
   918     self cursorLineLabelHolder valueHolder: (app cursorLineLabelHolder).
   939     self cursorLineLabelHolder valueHolder: (app cursorLineLabelHolder).
   919     self cursorColLabelHolder valueHolder: (app cursorColLabelHolder).
   940     self cursorColLabelHolder valueHolder: (app cursorColLabelHolder).
   920     self modeLabelHolder valueHolder: (app modeLabelHolder).
   941     self modeLabelHolder valueHolder: (app modeLabelHolder).
   921     self fileEncodingHolder valueHolder: (app fileEncodingHolder).
   942     self fileEncodingHolder valueHolder: (app fileEncodingHolder).
   922     self lockFileEncodingHolder valueHolder: (app lockFileEncodingHolder).
   943     self lockFileEncodingHolder valueHolder: (app lockFileEncodingHolder).
       
   944 
       
   945     "Modified: / 11-09-2006 / 12:44:07 / cg"
   923 !
   946 !
   924 
   947 
   925 update:something with:aParameter from:changedObject
   948 update:something with:aParameter from:changedObject
   926     | appl sel|
   949     | appl sel|
   927 
   950 
  4702     ^ BlockValue 
  4725     ^ BlockValue 
  4703         with:[:v | v printString]
  4726         with:[:v | v printString]
  4704         argument:editView cursorLineHolder.
  4727         argument:editView cursorLineHolder.
  4705 !
  4728 !
  4706 
  4729 
       
  4730 editModeInsert
       
  4731     editView editModeInsert
       
  4732 
       
  4733     "Created: / 11-09-2006 / 12:46:50 / cg"
       
  4734 !
       
  4735 
       
  4736 editModeInsertAndSelect
       
  4737     editView editModeInsertAndSelect
       
  4738 
       
  4739     "Created: / 11-09-2006 / 12:47:01 / cg"
       
  4740 !
       
  4741 
       
  4742 editModeOverwrite
       
  4743     editView editModeOverwrite
       
  4744 
       
  4745     "Created: / 11-09-2006 / 12:46:47 / cg"
       
  4746 !
       
  4747 
  4707 enableHexToggle
  4748 enableHexToggle
  4708     enableHexToggle isNil ifTrue:[
  4749     enableHexToggle isNil ifTrue:[
  4709         enableHexToggle := true asValue.
  4750         enableHexToggle := true asValue.
  4710     ].
  4751     ].
  4711     ^ enableHexToggle
  4752     ^ enableHexToggle
  4765     ^ lockFileEncodingHolder
  4806     ^ lockFileEncodingHolder
  4766 !
  4807 !
  4767 
  4808 
  4768 modeLabelHolder
  4809 modeLabelHolder
  4769     ^ editView modeLabelHolder.
  4810     ^ editView modeLabelHolder.
       
  4811 !
       
  4812 
       
  4813 modeLabelMenu
       
  4814     ^ FileBrowserV2 editModeInfoLabelMenu
       
  4815 
       
  4816     "Created: / 11-09-2006 / 12:36:26 / cg"
  4770 !
  4817 !
  4771 
  4818 
  4772 modifiedChannel
  4819 modifiedChannel
  4773     modifiedChannel isNil ifTrue:[
  4820     modifiedChannel isNil ifTrue:[
  4774         modifiedChannel := false asValue.
  4821         modifiedChannel := false asValue.
  5546 ! !
  5593 ! !
  5547 
  5594 
  5548 !FileApplicationNoteBook class methodsFor:'documentation'!
  5595 !FileApplicationNoteBook class methodsFor:'documentation'!
  5549 
  5596 
  5550 version
  5597 version
  5551     ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.203 2006-07-25 09:25:47 cg Exp $'
  5598     ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.204 2006-09-11 10:46:33 cg Exp $'
  5552 ! !
  5599 ! !