--- a/FileApplicationNoteBook.st Sat Oct 25 13:58:03 2014 +0200
+++ b/FileApplicationNoteBook.st Sat Oct 25 14:27:08 2014 +0200
@@ -67,7 +67,7 @@
!
AbstractFileApplicationNoteBookComponent subclass:#Terminal
- instanceVariableNames:'terminalView'
+ instanceVariableNames:'terminalView scrollLockedHolder'
classVariableNames:'DefaultLineLimit'
poolDictionaries:''
privateIn:FileApplicationNoteBook
@@ -4483,6 +4483,32 @@
FPXZF!!(ZF!!(ZF!!,S@@@@@@@@@@@@GA4FF!!(ZF!!(ZF!!(]G@@@@@@@@@@@@A8_G1<_G1<_G1<_G18@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@
@B@@@@@ @@@@@@@@@@@@@@@@@@@ HRD!!HRD!!HRD!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[47 88 144 95 128 176 47 112 200 47 104 184 80 96 128 95 104 128 208 232 248 95 104 136 255 248 248 47 104 176 96 112 136 111 128 176 95 112 168 80 96 144 64 88 136 63 72 128 240 240 248 47 96 176 239 240 248 47 96 168 111 120 144 96 120 168 95 104 160 79 96 144 64 80 136 112 128 144 224 232 248 112 120 144 47 96 160 112 128 160 47 88 160 127 136 160 79 112 168 47 88 136]; mask:((ImageMask new) width:22; height:22; bits:(ByteArray fromPackedString:'@@@C@@@C@@@C@@@C@@@CA??CA??CA??CA??CA??CA??CA??CA??CA??CA??CA??C@G0C@?>C@@@C@@@C@@@C@@@C') ; yourself); yourself]
+!
+
+scrollLockIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ self scrollLockIcon inspect
+ ImageEditor openOnClass:self andSelector:#scrollLockIcon
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'FileApplicationNoteBook::Terminal scrollLockIcon'
+ ifAbsentPut:[(Depth8Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA@PDA@PDA@PDA@PDA@@@@@@@@@@@B@0LC@0LC@0LA@0LC@P@@@@@@@@@@@ LDA@PDA@PDAPLFA0T@@@@@@@@@
+@@ CBP$IBP$IBP(C@@@J@@@@@@@@@@@K@00LC@0LC@0MCP4MCP@@@@@@@@@@C <@@@@@C@0LDADQDQ@@@@@@@@@@@@@RD1LTEQTLCAXDA@PV@@@@@@@@@@@W
+FA$YFA(UEP@[A@PDF0@@@@@@@@@@GA4^G!!<\HA8UHPLIBRD@@@@@@@@@H"LRH"HRH2H^G"P$IBP$@@@@@@@@@BT&I2 )J",%G!!8,@0LCKP@@@@@@@@@.J"<0
+LR<+K!!8^L LFA3H@@@@@@@@@L2(4MST4J3L^G#XCG!!86@@@@@@@@@C\8NS(:NS 7N30=M#X6M @@@@@@@@@"H2L#H2L#H @@@@@@@@@@@@@@@@@@@@@@@@@@
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[240 240 248 175 152 96 160 152 104 208 232 248 224 232 248 144 144 120 79 104 160 191 200 216 159 144 104 239 232 248 127 128 128 175 168 136 239 240 248 111 112 144 191 184 168 224 240 248 111 112 128 160 176 200 207 176 136 192 152 56 208 192 160 240 248 248 144 152 168 192 168 120 207 160 64 240 232 224 208 192 144 143 152 168 191 144 40 223 208 168 255 248 248 223 208 184 224 224 208 128 144 168 192 176 128 175 120 24 127 136 168 176 144 40 255 224 136 255 240 208 223 192 136 240 224 176 255 240 200 255 224 160 112 136 168 112 128 168 176 136 24 255 240 184 175 136 56 191 152 64 111 128 168 176 128 24 224 208 144 127 88 16 96 120 168 175 128 24 240 216 136 255 224 144 223 184 104 175 184 208 159 168 200 128 144 184]; mask:((ImageMask new) width:22; height:22; bits:(ByteArray fromPackedString:'@@@C@@@C@@@C@@@C@@@CA??#A??#A??#A??#A??#A??#@??#A??#A??#C??#C??#C??#C??#C??#C?@C@@@C@@@C') ; yourself); yourself]
! !
!FileApplicationNoteBook::Terminal class methodsFor:'interface specs'!
@@ -4578,6 +4604,14 @@
labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
)
(MenuItem
+ label: 'Scroll Lock'
+ itemValue: scrollLockedChanged
+ isButton: true
+ startGroup: right
+ indication: scrollLockedHolder
+ labelImage: (ResourceRetriever #'FileApplicationNoteBook::Terminal' scrollLockIcon)
+ )
+ (MenuItem
label: 'Clear Console Output'
itemValue: menuClearConsole
isButton: true
@@ -4626,6 +4660,17 @@
"open a save-as dialog"
self terminalView save.
+!
+
+scrollLockedChanged
+ terminalView scrollLock:scrollLockedHolder value.
+!
+
+scrollLockedHolder
+ scrollLockedHolder isNil ifTrue:[
+ scrollLockedHolder := false asValue
+ ].
+ ^ scrollLockedHolder.
! !
!FileApplicationNoteBook::Terminal methodsFor:'initialization & release'!
@@ -7496,10 +7541,10 @@
!FileApplicationNoteBook class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.301 2014-10-25 11:54:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.302 2014-10-25 12:27:08 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.301 2014-10-25 11:54:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.302 2014-10-25 12:27:08 cg Exp $'
! !