Add files via upload

menu.tcl

@@ -68,7 +68,7 @@ namespace eval menu {
 		$m2 add separator
 		$m2 add command -label Options -command { ::radxide::menu::edit::setup } 
 		set m3 [menu $m.help -tearoff 0]
-		$m3 add command -label About -command { tk_messageBox -title $dan(TITLE) -icon info -message "\n\nRADXIDE ver 1.2.0\n\n\nMIT Licence.\n\n\nCopyright (c) 5 Mode\n\nThis software is provided AS-IS.\n\nAuthors:\n2023-2024 RADXIDE, Daniele Bonini\n2021-2023 Alited, Alex Plotnikov\n\nhttps://5mode.com\n\n\n"}
+		$m3 add command -label About -command { tk_messageBox -title $dan(TITLE) -icon info -message "\n\nRADXIDE ver 1.2.1\n\n\nMIT Licence.\n\n\nCopyright (c) 5 Mode\n\nThis software is provided AS-IS.\n\nAuthors:\n2023-2024 RADXIDE, Daniele Bonini\n2021-2023 Alited, Alex Plotnikov\n\nhttps://5mode.com\n\n\n"}
     return $m
 	}
 

radxide.tcl

@@ -28,7 +28,7 @@
 #
 ###########################################################
 
-package provide radxide 1.2.0
+package provide radxide 1.2.1
 
 set _ [package require Tk]
 wm withdraw .
@@ -72,6 +72,11 @@ namespace eval radxide {
   set dan(GUTTEXT) ""               ;# ide guttext control 
   set dan(GUTTERWIDTH) 12
   set dan(TEXT) ""                  ;# ide text control
+  set dan(TEXTBG) "#222223"
+  set dan(TEXTFG) "#55ff55"
+  set dan(TEXTSELFG) "red"
+  set dan(CURSORCOLOR) "red"
+  set dan(CURSORWIDTH) "4"
   set dan(prjdirignore) {.git .bak} ;# ignored subdirectories of project
   
   set project(NAME) ""              ;# project default name

win.tcl

@@ -1943,7 +1943,7 @@ namespace eval win {
 		  pack [set w2 [ttk::panedwindow $pan.fra2 -orient horizontal]] -side left -fill both -expand 1
 		  set panR [$pan add $pan.fra2]
 		  text $w2.gutText -background "lightgray" -foreground "#222223" -font "Monospace 10" -width 5
-		  text $w2.text -background "#FFFFFF" -foreground "#222223" -font "monospace 10" -bd 0 -padx 13 -spacing1 0 -spacing2 0 -spacing3 0 -exportselection yes -width 115 -wrap none 
+		  text $w2.text -font "monospace 10" -bd 0 -padx 13 -spacing1 0 -spacing2 0 -spacing3 0 -exportselection yes -width 115 -wrap none
 		  set ww [list .danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText]
 		  $w2.text configure -xscrollcommand [list $w2.xscroll set]
 		  scrollbar $w2.xscroll -orient horizontal \
@@ -1965,6 +1965,11 @@ namespace eval win {
 		  $dan(GUTTEXT) configure -state disabled
 		  $dan(TEXT) configure -state disabled
 		  
+		  # set colors
+		  $dan(TEXT) configure -background $dan(TEXTBG) -foreground $dan(TEXTFG)
+		  $dan(TEXT) configure -selectforeground $dan(TEXTSELFG)
+ 		  $dan(TEXT) configure -insertbackground $dan(CURSORCOLOR) -insertwidth $dan(CURSORWIDTH);
+ 		  	  
 		  # code library
 		  pack [set w3 [frame $pan.fra3 -background $bg]] -side left -fill y -expand 1;
 		  set panC [$pan add $pan.fra3]