Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Monokai Theme (CodeViewTheme) jv
authorPatrik Svestka <patrik.svestka@gmail.com>
Tue, 09 Nov 2021 13:59:48 +0100
branchjv
changeset 19618 76c562829409
parent 19617 96a62e7ef902
child 19619 3375d0ef9023
Monokai Theme (CodeViewTheme)
Make.proto file | annotate | diff | comparison | revisions
Make.spec file | annotate | diff | comparison | revisions
Monokai.st file | annotate | diff | comparison | revisions
abbrev.stc file | annotate | diff | comparison | revisions
bc.mak file | annotate | diff | comparison | revisions
libInit.cc file | annotate | diff | comparison | revisions
stx_libtool.st file | annotate | diff | comparison | revisions 
--- a/Make.proto	Fri Nov 05 14:28:53 2021 +0100
+++ b/Make.proto	Tue Nov 09 13:59:48 2021 +0100
@@ -34,7 +34,7 @@
 # add the path(es) here:,
 # ********** OPTIONAL: MODIFY the next lines ***
 # LOCALINCLUDES=-Ifoo -Ibar
-LOCALINCLUDES= -I$(INCLUDE_TOP)/stx/goodies/refactoryBrowser/matching -I$(INCLUDE_TOP)/stx/goodies/refactoryBrowser/parser -I$(INCLUDE_TOP)/stx/libbasic -I$(INCLUDE_TOP)/stx/libbasic2 -I$(INCLUDE_TOP)/stx/libbasic3 -I$(INCLUDE_TOP)/stx/libcomp -I$(INCLUDE_TOP)/stx/libui -I$(INCLUDE_TOP)/stx/libview -I$(INCLUDE_TOP)/stx/libview2 -I$(INCLUDE_TOP)/stx/libwidg -I$(INCLUDE_TOP)/stx/libwidg2
+LOCALINCLUDES= -I$(INCLUDE_TOP)/stx/goodies/monticello/tonel -I$(INCLUDE_TOP)/stx/goodies/refactoryBrowser/matching -I$(INCLUDE_TOP)/stx/goodies/refactoryBrowser/parser -I$(INCLUDE_TOP)/stx/libbasic -I$(INCLUDE_TOP)/stx/libbasic2 -I$(INCLUDE_TOP)/stx/libbasic3 -I$(INCLUDE_TOP)/stx/libcomp -I$(INCLUDE_TOP)/stx/libui -I$(INCLUDE_TOP)/stx/libview -I$(INCLUDE_TOP)/stx/libview2 -I$(INCLUDE_TOP)/stx/libwidg -I$(INCLUDE_TOP)/stx/libwidg2
 
 
 # if you need any additional defines for embedded C code,
@@ -193,6 +193,7 @@
 $(OUTDIR)MemoryMonitor.$(O) MemoryMonitor.$(C) MemoryMonitor.$(H): MemoryMonitor.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(STCHDR)
 $(OUTDIR)MemoryMonitorView.$(O) MemoryMonitorView.$(C) MemoryMonitorView.$(H): MemoryMonitorView.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libview/DisplaySurface.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsMedium.$(H) $(INCLUDE_TOP)/stx/libview/SimpleView.$(H) $(INCLUDE_TOP)/stx/libview/View.$(H) $(STCHDR)
 $(OUTDIR)MemoryUsageView.$(O) MemoryUsageView.$(C) MemoryUsageView.$(H): MemoryUsageView.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libview/DisplaySurface.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsMedium.$(H) $(INCLUDE_TOP)/stx/libview/SimpleView.$(H) $(INCLUDE_TOP)/stx/libview/StandardSystemView.$(H) $(INCLUDE_TOP)/stx/libview/TopView.$(H) $(INCLUDE_TOP)/stx/libview/View.$(H) $(STCHDR)
+$(OUTDIR)Monokai.$(O) Monokai.$(C) Monokai.$(H): Monokai.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libwidg/CodeViewTheme.$(H) $(STCHDR)
 $(OUTDIR)MultiViewToolApplication.$(O) MultiViewToolApplication.$(C) MultiViewToolApplication.$(H): MultiViewToolApplication.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libview2/ToolApplicationModel.$(H) $(STCHDR)
 $(OUTDIR)PerforceSourceCodeManagerUtilities.$(O) PerforceSourceCodeManagerUtilities.$(C) PerforceSourceCodeManagerUtilities.$(H): PerforceSourceCodeManagerUtilities.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic3/SourceCodeManagerUtilities.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libview2/SimpleDialog.$(H) $(STCHDR)
 $(OUTDIR)ProcessMonitorV2.$(O) ProcessMonitorV2.$(C) ProcessMonitorV2.$(H): ProcessMonitorV2.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(STCHDR)
--- a/Make.spec	Fri Nov 05 14:28:53 2021 +0100
+++ b/Make.spec	Tue Nov 09 13:59:48 2021 +0100
@@ -92,6 +92,7 @@
 	MemoryMonitor \
 	MemoryMonitorView \
 	MemoryUsageView \
+	Monokai \
 	MultiViewToolApplication \
 	PerforceSourceCodeManagerUtilities \
 	ProcessMonitorV2 \
@@ -289,6 +290,7 @@
     $(OUTDIR)MemoryMonitor.$(O) \
     $(OUTDIR)MemoryMonitorView.$(O) \
     $(OUTDIR)MemoryUsageView.$(O) \
+    $(OUTDIR)Monokai.$(O) \
     $(OUTDIR)MultiViewToolApplication.$(O) \
     $(OUTDIR)PerforceSourceCodeManagerUtilities.$(O) \
     $(OUTDIR)ProcessMonitorV2.$(O) \
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Monokai.st	Tue Nov 09 13:59:48 2021 +0100
@@ -0,0 +1,711 @@
+"
+ COPYRIGHT (c) 1988 by Claus Gittinger / eXept Software AG
+ COPYRIGHT (c) 2015-2016 Jan Vrany
+ COPYRIGHT (c) 2021 LabWare
+ COPYRIGHT (c) 2021 svestkap
+ COPYRIGHT (c) 2021 Patrik Svestka
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+"{ Package: 'stx:libtool' }"
+
+"{ NameSpace: Smalltalk }"
+
+CodeViewTheme subclass:#Monokai
+	instanceVariableNames:''
+	classVariableNames:'Base03 Base02 Base00 Base0 Base1 Yellow Red Magenta Violet Cyan
+		Grey OtherYellow White BlackPro YellowPro OrangePro Orange
+		PinkPro Pink BluePro Blue PurplePro Purple GreenPro Green Brown
+		Sand BlackOther BlackMonokai'
+	poolDictionaries:''
+	category:'Views-Text-Theme'
+!
+
+!Monokai class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1988 by Claus Gittinger / eXept Software AG
+ COPYRIGHT (c) 2015-2016 Jan Vrany
+ COPYRIGHT (c) 2021 LabWare
+ COPYRIGHT (c) 2021 svestkap
+ COPYRIGHT (c) 2021 Patrik Svestka
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+documentation
+"
+    Based on Monokai and Monokai Pro colors for Sublime Text
+
+    [Links to original Monokai/MonokaiPro]
+        colorScheme := https://kolormark.com/brands/monokai
+        authorPages := https://monokai.pro/vscode
+        github := https://github.com/Monokai/monokai-pro-sublime-text
+        sublimeTextPackage := https://packagecontrol.io/packages/Theme%20-%20Monokai%20Pro
+ 
+    [author of Smalltalk/X port]
+        Patrik Svestka
+"
+! !
+
+!Monokai class methodsFor:'initialization'!
+
+initialize
+    "Invoked at system start or when the class is dynamically loaded."
+    
+    "Monokai pro colors"
+    BlackPro := Color rgbValue: 16r2d2a2e.
+    BluePro := Color rgbValue: 16r78dce8.
+    GreenPro := Color rgbValue: 16ra9dc76.
+    OrangePro := Color rgbValue: 16rfc9867.
+    PinkPro := Color rgbValue: 16rff6188.
+    PurplePro := Color rgbValue: 16rab9df2.
+    YellowPro := Color rgbValue: 16rffd866.
+    "Monokai colors"
+    BlackMonokai := Color rgbValue: 16r272822.
+    Blue := Color rgbValue: 16r66d9ef.    
+    Green := Color rgbValue: 16ra6e22e.
+    Orange := Color rgbValue: 16rfd971f.
+    Pink := Color rgbValue: 16rf92672.
+    Purple := Color rgbValue: 16rae81ff.
+    Yellow := Color rgbValue: 16re6db74.
+    "Colors outside original Monokai"
+    Brown := Color rgbValue: 16r74715e.
+    Sand := Color rgbValue: 16reee8d5.
+    BlackOther := Color rgbValue: 16r2e2e2e.
+    Red := Color rgbValue: 16rf92772.
+    Magenta := Color rgbValue: 16rd33682. 
+    Grey := Color rgbValue: 16r595959.
+    White := Color rgbValue: 16rd6d6d6.
+
+    "Modified: / 11-12-2017 / 16:23:59 / jv"
+    "Modified: / 04-11-2021 / 14:26:17 / svestkap"
+    "Modified: / 09-11-2021 / 10:58:48 / Patrik Svestka <patrik.svestka@gmail.com>"
+! !
+
+!Monokai methodsFor:'styles'!
+
+argumentIdentifierColor
+    "the color used for argument identifiers;
+     If syntaxColoring is turned on."        
+     
+    ^ self localIdentifierColor
+
+    "Created: / 04-11-2021 / 14:43:02 / svestkap"
+    "Modified (comment): / 09-11-2021 / 10:16:20 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+argumentIdentifierEmphasis
+    "the emphasis used for argument identifiers;
+     If syntaxColoring is turned on."   
+     
+    ^ #italic
+
+    "Created: / 04-11-2021 / 14:45:09 / svestkap"
+    "Modified (comment): / 09-11-2021 / 10:48:46 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+badIdentifierColor
+    "the color used for illegal identifiers;
+     If syntaxColoring is turned on."
+
+    ^ Red
+
+    "Created: / 04-11-2021 / 16:17:04 / svestkap"
+    "Modified (comment): / 09-11-2021 / 10:49:01 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+badIdentifierEmphasis
+    "the emphasis used for illegal identifiers;
+     If syntaxColoring is turned on."
+
+    ^ #bold
+
+    "Created: / 20-12-2017 / 22:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 16:17:53 / svestkap"
+!
+
+booleanConstantColor
+    "the color used for boolean constants;
+     If syntaxColoring is turned on."
+
+    ^ self constantColor
+
+    "Created: / 09-11-2021 / 10:18:26 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+booleanConstantEmphasis
+    "the emphasis used for boolean constants;
+     If syntaxColoring is turned on."
+
+    ^ #italic
+
+    "Created: / 09-11-2021 / 10:18:40 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+classVariableIdentifierColor
+    "the color used for classVar/classInstVar identifiers
+     If syntaxColoring is turned on."            
+
+    ^ self instVarIdentifierColor
+
+    "Created: / 04-11-2021 / 13:52:47 / svestkap"
+    "Modified: / 08-11-2021 / 12:19:56 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 10:49:35 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+classVariableIdentifierEmphasis
+    "the emphasis used for classVar/classInstVar identifiers
+     If syntaxColoring is turned on."
+     
+    ^ #italic "/Array with: #italic with: #bold
+
+    "Created: / 04-11-2021 / 13:53:06 / svestkap"
+    "Modified: / 08-11-2021 / 16:11:31 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 10:54:26 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+collectionEnumerationSelectorColor
+    "the color used for some selected collection enumeration
+     selectors (such as collect:, select: etc.);
+     If syntaxColoring is turned on.
+     If left nil, the normal selector color is used."        
+     
+    ^ OrangePro lighter
+
+    "Created: / 04-11-2021 / 14:07:34 / svestkap"
+    "Modified: / 04-11-2021 / 15:54:32 / svestkap"
+    "Modified (comment): / 09-11-2021 / 10:53:58 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+collectionEnumerationSelectorEmphasis
+    "the emphasis used for some selected collection enumeration
+     selectors (such as collect:, select: etc.);
+     If syntaxColoring is turned on.
+     If left nil, the normal selector color is used."
+     
+    ^ #italics
+
+    "Created: / 04-11-2021 / 14:07:39 / svestkap"
+    "Modified (comment): / 09-11-2021 / 10:54:17 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+commentColor
+    "the color used for comments;
+     If syntaxColoring is turned on."   
+     
+    ^ Brown
+
+    "Created: / 05-11-2021 / 13:44:03 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 08-11-2021 / 15:01:36 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 10:55:03 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+commentEmphasis
+    "the emphasis used for comments;
+     If syntaxColoring is turned on."
+     
+    ^ #normal
+
+    "Created: / 05-11-2021 / 13:46:47 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 10:55:12 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+constantColor
+    "the color used for constants;
+     If syntaxColoring is turned on."
+
+    ^ GreenPro "/ Magenta lighter
+
+    "Created: / 15-12-2017 / 22:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-01-2019 / 19:12:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 16:30:08 / svestkap"
+    "Modified: / 09-11-2021 / 12:02:49 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+constantEmphasis
+    "the emphasis used for constants;
+     If syntaxColoring is turned on."
+
+    ^ #normal
+
+    "Created: / 04-11-2021 / 16:30:46 / svestkap"
+    "Modified: / 05-11-2021 / 14:12:59 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 10:55:18 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+controlFlowSelectorColor
+    "the color used for some selected controlFlow selectors (such as if, while etc.);
+     If syntaxColoring is turned on."
+     
+    ^ PinkPro "/Magenta lighter "/GreenPro
+
+    "Created: / 04-11-2021 / 15:50:56 / svestkap"
+    "Modified (format): / 09-11-2021 / 12:05:02 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+controlFlowSelectorEmphasis
+    "the emphasis used for some selected controlFlow selectors (such as if, while etc.);
+     If syntaxColoring is turned on."
+     
+    ^ #normal
+
+    "Created: / 04-11-2021 / 15:51:02 / svestkap"
+    "Modified: / 05-11-2021 / 14:34:17 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 10:55:49 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+debugSelectorColor
+    "the color used for some selected debug
+     selectors (such as halt etc.);
+     If syntaxColoring is turned on.
+     If left nil, the normal selector color is used."
+
+    ^ Red
+
+    "Created: / 16-12-2017 / 21:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+debugSelectorEmphasis
+    "the emphasis used for some selected debug
+     selectors (such as halt etc.);
+     If syntaxColoring is turned on.
+     If left nil, the normal selector color is used."
+
+    ^ #normal
+
+    "Created: / 04-11-2021 / 16:20:11 / svestkap"
+    "Modified (comment): / 09-11-2021 / 10:55:59 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+defaultSyntaxBackground
+    "Return a background color for the code editor. If nil is returned,
+     a TextView's default background is used instead."
+
+    ^ BlackMonokai
+
+    "Created: / 11-12-2017 / 17:39:33 / jv"
+    "Modified: / 16-12-2017 / 20:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-11-2021 / 10:58:51 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+defaultSyntaxColor
+    "the color used for anything else;
+     If syntaxColoring is turned on."
+
+    ^ White
+
+    "Created: / 11-12-2017 / 17:39:45 / jv"
+    "Modified: / 16-12-2017 / 21:39:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 12:10:49 / svestkap"
+    "Modified: / 09-11-2021 / 10:59:36 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+errorColor
+    "the color used for illegal identifiers;
+     If syntaxColoring is turned on."
+
+    ^ Red
+
+    "Created: / 05-11-2021 / 14:04:51 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+errorEmphasis
+    "raise an error: this method should be implemented (TODO)"
+
+    ^ #normal
+
+    "Created: / 05-11-2021 / 14:06:10 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+errorRaisingSelectorColor
+    "the color used for some selected error raising
+     selectors (such as raise etc.);
+     If syntaxColoring is turned on.
+     If left nil, the normal selector color is used."
+
+    ^ PinkPro
+
+    "Created: / 05-11-2021 / 13:58:52 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 08-11-2021 / 12:10:26 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+errorRaisingSelectorEmphasis
+    "the emphasis used for some selected error raising
+     selectors (such as raise etc.);
+     If syntaxColoring is turned on.
+     If left nil, the normal selector emphasis is used."
+
+    ^ #italic
+
+    "Created: / 05-11-2021 / 13:59:16 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 09-11-2021 / 12:08:46 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+globalClassIdentifierColor
+    "the color used for global identifiers which are known to be classes;
+     If syntaxColoring is turned on."
+
+    ^ PurplePro
+
+    "Created: / 08-11-2021 / 12:24:21 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 09-11-2021 / 10:06:49 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+globalClassIdentifierEmphasis
+    "the emphasis used for global variable identifiers which are known to be classes;
+     If syntaxColoring is turned on."
+
+    ^ #normal
+
+    "Created: / 08-11-2021 / 12:24:33 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 08-11-2021 / 16:12:34 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+globalIdentifierColor
+    "the color used for global identifiers;
+     If syntaxColoring is turned on."
+
+    ^ self globalClassIdentifierColor
+
+    "Created: / 09-11-2021 / 10:23:24 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+globalIdentifierEmphasis
+    "the emphasis used for global variable identifiers;
+     If syntaxColoring is turned on."
+
+    ^ #italic
+
+    "Created: / 09-11-2021 / 10:25:05 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+identifierColor
+    "the color used for other identifiers;
+     If syntaxColoring is turned on."
+
+    ^ BluePro
+
+    "
+     UserPreferences current at:#identifierColor put:Color green darkened darkened.
+     UserPreferences current at:#identifierColor put:Color black.
+    "
+
+    "Created: / 16-12-2017 / 21:41:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 16:10:31 / svestkap"
+!
+
+instVarIdentifierColor
+    "the color used for instance variable identifiers;
+     If syntaxColoring is turned on."
+     
+    ^ BluePro
+
+    "Created: / 04-11-2021 / 13:29:54 / svestkap"
+    "Modified: / 09-11-2021 / 10:10:52 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 11:13:14 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+instVarIdentifierEmphasis
+    "the emphasis used for instance variable identifiers;
+     If syntaxColoring is turned on."
+     
+    ^ #normal
+
+    "Created: / 04-11-2021 / 13:40:18 / svestkap"
+    "Modified: / 08-11-2021 / 16:10:52 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 11:13:29 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+localIdentifierColor
+    "the color used for local variable identifiers;
+     If syntaxColoring is turned on."
+     
+    ^ BluePro lighter
+
+    "Created: / 04-11-2021 / 13:25:26 / svestkap"
+    "Modified (comment): / 09-11-2021 / 10:33:56 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+localIdentifierEmphasis
+    "the emphasis used for local variable identifiers;
+     If syntaxColoring is turned on."
+     
+    ^ #normal
+
+    "Created: / 04-11-2021 / 14:45:46 / svestkap"
+    "Modified (comment): / 09-11-2021 / 11:13:38 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+methodSelectorColor
+    "the color used for a methods selector pattern;
+     If syntaxColoring is turned on."           
+     
+    ^ White
+
+    "Created: / 04-11-2021 / 13:58:06 / svestkap"
+    "Modified (comment): / 09-11-2021 / 10:34:27 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+methodSelectorEmphasis
+    "the emphasis used for a methods selector pattern;
+     If syntaxColoring is turned on."
+
+    ^ #bold
+
+    "Created: / 16-12-2017 / 21:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 13:58:34 / svestkap"
+    "Modified: / 09-11-2021 / 11:14:28 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+numberConstantColor
+    "the color used for number constants;
+     If syntaxColoring is turned on."
+
+    ^ White
+
+    "Created: / 16-12-2017 / 20:10:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 16:24:46 / svestkap"
+!
+
+numberConstantEmphasis
+    "the emphasis used for number constants;
+     If syntaxColoring is turned on."
+
+    ^ #italic
+
+    "Created: / 04-11-2021 / 16:26:28 / svestkap"
+    "Modified: / 05-11-2021 / 14:11:16 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 11:15:21 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+poolVariableIdentifierColor
+    "the color used for pool variable identifiers
+     If syntaxColoring is turned on."
+
+    ^ self globalIdentifierColor
+
+    "Created: / 09-11-2021 / 10:43:19 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+poolVariableIdentifierEmphasis
+    "the color used for pool variable identifiers
+     If syntaxColoring is turned on."
+
+    ^ Array with: #italic with: #bold  
+
+    "Created: / 09-11-2021 / 10:43:26 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+selectorColor
+    "the color used for message selectors;
+     If syntaxColoring is turned on." 
+     
+    ^ White
+
+    "Created: / 04-11-2021 / 12:39:26 / svestkap"
+    "Modified: / 05-11-2021 / 14:31:10 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 11:16:20 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+selectorEmphasis
+    "the emphasis used for message selectors;
+     If syntaxColoring is turned on."
+
+    ^ #normal
+
+    "Created: / 05-11-2021 / 14:30:26 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+selfColor
+    "the color used for the self pseudoVariable;
+     If syntaxColoring is turned on."
+
+    ^ OrangePro
+
+    "Created: / 16-12-2017 / 20:11:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-01-2019 / 19:13:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 12:40:57 / svestkap"
+!
+
+selfEmphasis
+    "the emphasis used for the self pseudoVariable;
+     If syntaxColoring is turned on."
+
+    ^ #normal
+
+    "Created: / 16-01-2019 / 19:14:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 15:55:41 / svestkap"
+!
+
+stringColor
+    "the color used for string constants;
+     If syntaxColoring is turned on."
+     
+    ^ YellowPro
+
+    "Created: / 04-11-2021 / 12:43:35 / svestkap"
+    "Modified: / 08-11-2021 / 10:12:39 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 11:16:46 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+stringEmphasis
+    "the emphasis used for string constants;
+     If syntaxColoring is turned on."
+     
+    ^ #normal
+
+    "Created: / 04-11-2021 / 16:33:30 / svestkap"
+    "Modified (comment): / 09-11-2021 / 11:16:56 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+symbolColor
+    "the color used for symbol constants;
+     If syntaxColoring is turned on."
+     
+    ^ self stringColor
+
+    "Created: / 04-11-2021 / 12:47:25 / svestkap"
+    "Modified: / 04-11-2021 / 14:34:41 / svestkap"
+    "Modified: / 08-11-2021 / 10:14:32 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 11:19:30 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+symbolEmphasis
+    "the emphasis used for symbol constants;
+     If syntaxColoring is turned on."
+     
+    ^ #italic
+
+    "Created: / 04-11-2021 / 14:34:11 / svestkap"
+    "Modified (comment): / 09-11-2021 / 11:19:40 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+thisContextColor
+    "the color used for the thisContext pseudoVariable;
+     If syntaxColoring is turned on."
+
+    ^ self selfColor
+
+    "Created: / 15-12-2017 / 22:58:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 16:27:23 / svestkap"
+    "Modified: / 08-11-2021 / 09:40:06 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+thisContextEmphasis
+    "the emphasis used for the thisContext pseudoVariable;
+     If syntaxColoring is turned on."
+
+    ^ #normal
+
+    "Created: / 04-11-2021 / 16:27:41 / svestkap"
+    "Modified (comment): / 09-11-2021 / 11:19:11 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+unimplementedSelectorColor
+    "the color used for bad message selectors;
+     If syntaxColoring is turned on."
+
+    ^ Red lighter lighter
+
+    "Created: / 20-12-2017 / 22:48:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-11-2021 / 16:00:34 / svestkap"
+!
+
+unimplementedSelectorEmphasis
+    "the emphasis used for bad message selectors;
+     If syntaxColoring is turned on."
+
+    ^ #bold
+
+    "Created: / 05-11-2021 / 14:07:30 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 08-11-2021 / 12:08:48 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+unknownIdentifierColor
+    "the color used for unknown identifiers;
+     If syntaxColoring is turned on."
+     
+    ^ PinkPro
+
+    "Created: / 04-11-2021 / 16:12:32 / svestkap"
+    "Modified: / 08-11-2021 / 12:11:09 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 11:19:58 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+unknownIdentifierEmphasis
+    "the emphasis used for unknown identifiers;
+     If syntaxColoring is turned on."
+     
+    ^ #italic
+
+    "Created: / 04-11-2021 / 16:15:08 / svestkap"
+    "Modified (comment): / 09-11-2021 / 11:20:13 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+variableColor
+    "Unknown usage"        
+
+    ^ self identifierColor
+
+    "Created: / 09-11-2021 / 10:44:16 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified (comment): / 09-11-2021 / 11:48:37 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+variableEmphasis
+
+    ^ self identifierEmphasis
+
+    "Created: / 09-11-2021 / 10:44:28 / Patrik Svestka <patrik.svestka@gmail.com>"
+! !
+
+!Monokai methodsFor:'styles - navigation'!
+
+assignmentHighlightBackround
+
+    ^ Red lighter
+
+    "Created: / 15-09-2021 / 21:25:08 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified (format): / 04-11-2021 / 13:43:46 / svestkap"
+!
+
+selectorHighlightBackground
+
+    ^ Sand darker darker
+
+    "Created: / 15-09-2021 / 21:28:56 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified (comment): / 04-11-2021 / 14:41:27 / svestkap"
+    "Modified: / 09-11-2021 / 10:13:15 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
+variableHighlightBackground
+
+    ^ Grey
+
+    "Created: / 15-09-2021 / 21:29:10 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 04-11-2021 / 13:46:08 / svestkap"
+! !
+
+!Monokai class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+
+
+Monokai initialize!
--- a/abbrev.stc	Fri Nov 05 14:28:53 2021 +0100
+++ b/abbrev.stc	Tue Nov 09 13:59:48 2021 +0100
@@ -43,6 +43,7 @@
 MemoryMonitor MemoryMonitor stx:libtool 'Monitors-ST/X' 3
 MemoryMonitorView MemoryMonitorView stx:libtool 'Monitors-ST/X' 2
 MemoryUsageView MemoryUsageView stx:libtool 'Monitors-ST/X' 2
+Monokai Monokai stx:libtool 'Views-Text-Theme' 0
 MultiViewToolApplication MultiViewToolApplication stx:libtool 'Interface-Smalltalk' 9
 PerforceSourceCodeManagerUtilities PerforceSourceCodeManagerUtilities stx:libtool 'System-SourceCodeManagement' 0
 ProcessMonitorV2 ProcessMonitorV2 stx:libtool 'Monitors-ST/X' 3
--- a/bc.mak	Fri Nov 05 14:28:53 2021 +0100
+++ b/bc.mak	Tue Nov 09 13:59:48 2021 +0100
@@ -38,7 +38,7 @@
 
 
 
-LOCALINCLUDES= -I$(INCLUDE_TOP)\stx\goodies\refactoryBrowser\matching -I$(INCLUDE_TOP)\stx\goodies\refactoryBrowser\parser -I$(INCLUDE_TOP)\stx\libbasic -I$(INCLUDE_TOP)\stx\libbasic2 -I$(INCLUDE_TOP)\stx\libbasic3 -I$(INCLUDE_TOP)\stx\libcomp -I$(INCLUDE_TOP)\stx\libui -I$(INCLUDE_TOP)\stx\libview -I$(INCLUDE_TOP)\stx\libview2 -I$(INCLUDE_TOP)\stx\libwidg -I$(INCLUDE_TOP)\stx\libwidg2
+LOCALINCLUDES= -I$(INCLUDE_TOP)\stx\goodies\monticello\tonel -I$(INCLUDE_TOP)\stx\goodies\refactoryBrowser\matching -I$(INCLUDE_TOP)\stx\goodies\refactoryBrowser\parser -I$(INCLUDE_TOP)\stx\libbasic -I$(INCLUDE_TOP)\stx\libbasic2 -I$(INCLUDE_TOP)\stx\libbasic3 -I$(INCLUDE_TOP)\stx\libcomp -I$(INCLUDE_TOP)\stx\libui -I$(INCLUDE_TOP)\stx\libview -I$(INCLUDE_TOP)\stx\libview2 -I$(INCLUDE_TOP)\stx\libwidg -I$(INCLUDE_TOP)\stx\libwidg2
 LOCALDEFINES=
 
 STCLOCALOPT=-package=$(PACKAGE) -I. $(LOCALINCLUDES) -headerDir=. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) $(COMMONSYMBOLS) -varPrefix=$(LIBNAME)
@@ -121,6 +121,7 @@
 $(OUTDIR)MemoryMonitor.$(O) MemoryMonitor.$(C) MemoryMonitor.$(H): MemoryMonitor.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(STCHDR)
 $(OUTDIR)MemoryMonitorView.$(O) MemoryMonitorView.$(C) MemoryMonitorView.$(H): MemoryMonitorView.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libview\DisplaySurface.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsMedium.$(H) $(INCLUDE_TOP)\stx\libview\SimpleView.$(H) $(INCLUDE_TOP)\stx\libview\View.$(H) $(STCHDR)
 $(OUTDIR)MemoryUsageView.$(O) MemoryUsageView.$(C) MemoryUsageView.$(H): MemoryUsageView.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libview\DisplaySurface.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsMedium.$(H) $(INCLUDE_TOP)\stx\libview\SimpleView.$(H) $(INCLUDE_TOP)\stx\libview\StandardSystemView.$(H) $(INCLUDE_TOP)\stx\libview\TopView.$(H) $(INCLUDE_TOP)\stx\libview\View.$(H) $(STCHDR)
+$(OUTDIR)Monokai.$(O) Monokai.$(C) Monokai.$(H): Monokai.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libwidg\CodeViewTheme.$(H) $(STCHDR)
 $(OUTDIR)MultiViewToolApplication.$(O) MultiViewToolApplication.$(C) MultiViewToolApplication.$(H): MultiViewToolApplication.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libview2\ToolApplicationModel.$(H) $(STCHDR)
 $(OUTDIR)PerforceSourceCodeManagerUtilities.$(O) PerforceSourceCodeManagerUtilities.$(C) PerforceSourceCodeManagerUtilities.$(H): PerforceSourceCodeManagerUtilities.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libbasic3\SourceCodeManagerUtilities.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libview2\SimpleDialog.$(H) $(STCHDR)
 $(OUTDIR)ProcessMonitorV2.$(O) ProcessMonitorV2.$(C) ProcessMonitorV2.$(H): ProcessMonitorV2.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(STCHDR)
--- a/libInit.cc	Fri Nov 05 14:28:53 2021 +0100
+++ b/libInit.cc	Tue Nov 09 13:59:48 2021 +0100
@@ -57,6 +57,7 @@
 extern void _MemoryMonitor_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
 extern void _MemoryMonitorView_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
 extern void _MemoryUsageView_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
+extern void _Monokai_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
 extern void _MultiViewToolApplication_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
 extern void _PerforceSourceCodeManagerUtilities_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
 extern void _ProcessMonitorV2_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
@@ -263,6 +264,7 @@
     _MemoryMonitor_Init(pass,__pRT__,snd);
     _MemoryMonitorView_Init(pass,__pRT__,snd);
     _MemoryUsageView_Init(pass,__pRT__,snd);
+    _Monokai_Init(pass,__pRT__,snd);
     _MultiViewToolApplication_Init(pass,__pRT__,snd);
     _PerforceSourceCodeManagerUtilities_Init(pass,__pRT__,snd);
     _ProcessMonitorV2_Init(pass,__pRT__,snd);
--- a/stx_libtool.st	Fri Nov 05 14:28:53 2021 +0100
+++ b/stx_libtool.st	Tue Nov 09 13:59:48 2021 +0100
@@ -2,6 +2,7 @@
  COPYRIGHT (c) 1988 by Claus Gittinger / eXept Software AG
  COPYRIGHT (c) 2015-2016 Jan Vrany
  COPYRIGHT (c) 2021 LabWare
+ COPYRIGHT (c) 2021 svestkap
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -29,6 +30,7 @@
  COPYRIGHT (c) 1988 by Claus Gittinger / eXept Software AG
  COPYRIGHT (c) 2015-2016 Jan Vrany
  COPYRIGHT (c) 2021 LabWare
+ COPYRIGHT (c) 2021 svestkap
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -135,7 +137,7 @@
      Please take a look at the #referencedPreRequisites method as well."
 
     ^ #(
-        #'stx:goodies/refactoryBrowser/parser'    "RBProgramNodeVisitor - superclass of CodeGenerator"
+        #'stx:goodies/refactoryBrowser/parser'    "RBProgramNodeVisitor - superclass of Tools::BreakpointBrowser::MessageArgumentExtractor"
         #'stx:libbasic'    "AbstractTime - extended"
         #'stx:libbasic2'    "Iterator - extended"
         #'stx:libbasic3'    "Change - extended"
@@ -160,6 +162,7 @@
      Please also take a look at the #mandatoryPreRequisites method"
 
     ^ #(
+        #'stx:goodies/monticello/tonel'    "TonelRepository - referenced by Tools::NewSystemBrowser>>projectMenuFileOutAsWithFormat:"
         #'stx:goodies/refactoryBrowser/matching'    "RBSearchRule - referenced by Tools::NewSystemBrowser>>parseTreeSearcherAvailable"
     )
 !
@@ -216,7 +219,6 @@
         ChangesBrowser
         CodeCompletionHelpMenuView
         CodeCompletionHelpView
-        #'Tools::CodeGenerator'
         CodeGeneratorTool
         DebugView
         Diff
@@ -242,6 +244,7 @@
         MemoryMonitor
         MemoryMonitorView
         MemoryUsageView
+        Monokai
         MultiViewToolApplication
         PerforceSourceCodeManagerUtilities
         ProcessMonitorV2
@@ -266,6 +269,7 @@
         #'Tools::ClassSorter'
         #'Tools::CodeCompletionMenu'
         #'Tools::CodeCritics'
+        #'Tools::CodeGenerator'
         #'Tools::CodeView2'
         #'Tools::CodeViewService'
         #'Tools::DiffCodeView2'
hg/stx-libtool