FileApplicationNoteBook.st
changeset 10761 64a7f27deb22
parent 10754 20b2f75fe420
child 10922 ad955bd3b4b1
equal deleted inserted replaced
10760:364875d0d64f 10761:64a7f27deb22
    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 enableSelectInBrowser
    83 		doNotShowFontDialog lockFileEncodingHolder enableSelectInBrowser
    84 		tagsBrowserVisibleHolder tagsBrowser'
    84 		tagsBrowserVisibleHolder tagsBrowser'
    85 	classVariableNames:''
    85 	classVariableNames:'DefaultTagsBrowserVisible'
    86 	poolDictionaries:''
    86 	poolDictionaries:''
    87 	privateIn:FileApplicationNoteBook
    87 	privateIn:FileApplicationNoteBook
    88 !
    88 !
    89 
    89 
    90 AbstractFileApplicationNoteBookComponent subclass:#XMLViewApplication
    90 AbstractFileApplicationNoteBookComponent subclass:#XMLViewApplication
  4360 
  4360 
  4361 checkModifiedDelayTime
  4361 checkModifiedDelayTime
  4362     ^ 30    "seconds"
  4362     ^ 30    "seconds"
  4363 !
  4363 !
  4364 
  4364 
       
  4365 defaultTagsBrowserVisible
       
  4366     ^ DefaultTagsBrowserVisible ? true
       
  4367 
       
  4368     "Created: / 06-10-2011 / 12:45:58 / cg"
       
  4369 !
       
  4370 
  4365 tabStringFor:aApplicationType
  4371 tabStringFor:aApplicationType
  4366     "the formatString shown in a tab (language translated)"
  4372     "the formatString shown in a tab (language translated)"
  4367 
  4373 
  4368     aApplicationType == #directoryDescription ifTrue:[
  4374     aApplicationType == #directoryDescription ifTrue:[
  4369         ^ 'Directory Description of %1'
  4375         ^ 'Directory Description of %1'
  5445 tagsBrowserVisibleHolder
  5451 tagsBrowserVisibleHolder
  5446     tagsBrowserVisibleHolder isNil ifTrue:[
  5452     tagsBrowserVisibleHolder isNil ifTrue:[
  5447         masterApplication notNil ifTrue:[
  5453         masterApplication notNil ifTrue:[
  5448             tagsBrowserVisibleHolder := masterApplication tagsBrowserVisibleHolder.
  5454             tagsBrowserVisibleHolder := masterApplication tagsBrowserVisibleHolder.
  5449         ] ifFalse:[
  5455         ] ifFalse:[
  5450             tagsBrowserVisibleHolder := true asValue.
  5456             tagsBrowserVisibleHolder := self class defaultTagsBrowserVisible asValue.
  5451         ].
  5457         ].
  5452         tagsBrowserVisibleHolder addDependent:self.
  5458         tagsBrowserVisibleHolder addDependent:self.
  5453     ].
  5459     ].
  5454     ^ tagsBrowserVisibleHolder
  5460     ^ tagsBrowserVisibleHolder
  5455 
  5461 
  5456     "Created: / 23-06-2011 / 09:19:18 / cg"
  5462     "Created: / 23-06-2011 / 09:19:18 / cg"
  5457     "Modified: / 27-06-2011 / 16:04:45 / cg"
  5463     "Modified: / 06-10-2011 / 12:46:41 / cg"
  5458 ! !
  5464 ! !
  5459 
  5465 
  5460 !FileApplicationNoteBook::TextEditor methodsFor:'change & update'!
  5466 !FileApplicationNoteBook::TextEditor methodsFor:'change & update'!
  5461 
  5467 
  5462 changeTextColorForChanged
  5468 changeTextColorForChanged
  5509 
  5515 
  5510     "Created: / 23-06-2011 / 16:30:00 / cg"
  5516     "Created: / 23-06-2011 / 16:30:00 / cg"
  5511 !
  5517 !
  5512 
  5518 
  5513 tagsBrowserVisibilityChanged
  5519 tagsBrowserVisibilityChanged
  5514     |tagsBrowserCanvas|
  5520     |visible tagsBrowserCanvas|
  5515 
  5521 
  5516     tagsBrowser notNil ifTrue:[
  5522     tagsBrowser notNil ifTrue:[
  5517         tagsBrowserCanvas := tagsBrowser window.
  5523         tagsBrowserCanvas := tagsBrowser window.
  5518     ].
  5524     ].
  5519 
  5525 
  5520     self tagsBrowserVisibleHolder value ifTrue:[
  5526     (visible := self tagsBrowserVisibleHolder value) ifTrue:[
  5521         tagsBrowser isNil ifTrue:[
  5527         tagsBrowser isNil ifTrue:[
  5522             tagsBrowserCanvas := ApplicationSubView new.
  5528             tagsBrowserCanvas := ApplicationSubView new.
  5523 
  5529 
  5524             tagsBrowser := Tools::TagsBrowser new.
  5530             tagsBrowser := Tools::TagsBrowser new.
  5525             tagsBrowser window:tagsBrowserCanvas.
  5531             tagsBrowser window:tagsBrowserCanvas.
  5541         tagsBrowser notNil ifTrue:[
  5547         tagsBrowser notNil ifTrue:[
  5542             tagsBrowserCanvas unmap.
  5548             tagsBrowserCanvas unmap.
  5543             (self builder componentAt:#Panel) relativeCorners:#(1.0 1.0).
  5549             (self builder componentAt:#Panel) relativeCorners:#(1.0 1.0).
  5544         ].
  5550         ].
  5545     ].
  5551     ].
       
  5552     DefaultTagsBrowserVisible := visible
  5546 
  5553 
  5547     "Created: / 27-06-2011 / 16:06:00 / cg"
  5554     "Created: / 27-06-2011 / 16:06:00 / cg"
  5548     "Modified: / 29-06-2011 / 09:32:09 / cg"
  5555     "Modified: / 06-10-2011 / 12:45:20 / cg"
  5549 !
  5556 !
  5550 
  5557 
  5551 update:something with:aParameter from:changedObject
  5558 update:something with:aParameter from:changedObject
  5552     |itemRem contMd5CheckSum viewModified p|
  5559     |itemRem contMd5CheckSum viewModified p|
  5553 
  5560 
  6557     ^ super release
  6564     ^ super release
  6558 ! !
  6565 ! !
  6559 
  6566 
  6560 !FileApplicationNoteBook class methodsFor:'documentation'!
  6567 !FileApplicationNoteBook class methodsFor:'documentation'!
  6561 
  6568 
       
  6569 version
       
  6570     ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.258 2011-10-06 10:47:30 cg Exp $'
       
  6571 !
       
  6572 
  6562 version_CVS
  6573 version_CVS
  6563     ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.257 2011-10-06 09:44:13 cg Exp $'
  6574     ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.258 2011-10-06 10:47:30 cg Exp $'
  6564 ! !
  6575 ! !