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.1.6\n\n\nMIT Licence.\n\n\nCopyright (c) 5 Mode\n\nThe 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.1.7\n\n\nMIT Licence.\n\n\nCopyright (c) 5 Mode\n\nThe 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
 	}
 
@@ -80,6 +80,7 @@ namespace eval menu {
 	
  	  bind $ctrl "<Control-n>" { ::radxide::menu::file::newProject }
  	  bind $ctrl "<Control-o>" { ::radxide::menu::file::openProject }
+ 	  bind $ctrl "<Control-s>" { ::radxide::menu::file::saveFile }
  	  bind $ctrl "<Control-Alt-x>" { ::radxide::menu::file::closeProject }
  	  bind $ctrl "<Control-q>" { ::radxide::menu::file::quit }
  	  bind $ctrl "<Control-c>" "::radxide::menu::edit::makeCopy"
@@ -87,7 +88,7 @@ namespace eval menu {
  	  bind $ctrl "<Control-x>" "::radxide::menu::edit::makeCut"
  	  bind $ctrl "<Control-f>" "::radxide::menu::edit::find"
 		bind $ctrl "<Control-g>" "::radxide::menu::edit::GotoLine"
-		bind $ctrl "<Return>" "::radxide::win::setNewLineWithIndent"
+		bind $ctrl "<Return>" "::radxide::win::setNewLineWithIndent" 
 		bind $ctrl "<Tab>" "::radxide::win::insertTab"
 		
 	}	

radxide.tcl

@@ -28,7 +28,7 @@
 #
 ###########################################################
 
-package provide radxide 1.1.6
+package provide radxide 1.1.7
 
 set _ [package require Tk]
 wm withdraw .

win.tcl

@@ -906,6 +906,8 @@ namespace eval win {
     }
 
     $canvas configure -state disabled
+    
+    return 2
   }
 
 
@@ -1890,12 +1892,13 @@ namespace eval win {
       $sb1 set {*}$args
       $sb2 set {*}$args
       
-      set w1 [lrange $widgets 1 end]
+      set myw [lrange $widgets 1 end]
     #} else {
-      #set w1 [lrange $widgets 0 0]		    
+    #  set myw [lrange $widgets 0 0]		    
     #} 
     
-    ::radxide::win::Yview $w1 moveto [lindex $args 0]
+    ::radxide::win::Yview $myw moveto [lindex $args 0]
+    #::radxide::win::Yview [lrange $widgets 0 0] moveto [lindex $args 0]
 
   }
   
@@ -1968,7 +1971,10 @@ namespace eval win {
 		  ::radxide::eglib::create $w3
 		  
 		  # update gutter, key bindings     
-      bind $dan(TEXT) "<KeyRelease>" {::radxide::win::fillGutter .danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText 5 1 "#FFFFFF" "#222223"}
+      bind $dan(TEXT) "<Return>" {::radxide::win::fillGutter .danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText 5 1 "#FFFFFF" "#222223"}
+      bind $dan(TEXT) "<BackSpace>" {::radxide::win::fillGutter .danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText 5 1 "#FFFFFF" "#222223"}
+      bind $dan(TEXT) "<Cancel>" {::radxide::win::fillGutter .danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText 5 1 "#FFFFFF" "#222223" ;::radxide::win::Yview {.danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText} scroll -0 units ;::radxide::win::Yview {.danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText} scroll 1 units}
+      bind $dan(TEXT) "<Delete>" {::radxide::win::fillGutter .danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText 5 1 "#FFFFFF" "#222223" ;::radxide::win::Yview {.danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText} scroll -1 units ;::radxide::win::Yview {.danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText} scroll 1 units}
       bind $tree "<ButtonPress>" {after idle {::radxide::tree::buttonPress %b %x %y %X %Y}}
       bind $tree "<ButtonRelease>" {after idle {::radxide::tree::buttonRelease %b %s %x %y %X %Y}}      
       
@@ -3226,6 +3232,11 @@ namespace eval win {
       
       set $newlength 0
       set nindent 0   
+      
+      ::radxide::win::fillGutter .danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText 5 1 "#FFFFFF" "#222223"
+      ::radxide::win::Yview {.danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText} scroll -1 units 
+      ::radxide::win::Yview {.danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText} scroll 1 units
+            
       return 0
     } else {
     
@@ -3236,6 +3247,11 @@ namespace eval win {
 		  set idx3 [$wt index insert]
 		  set idx4 [$wt index "$idx3 +1 line"]
 		  ::tk::TextSetCursor $wt $idx3
+		  
+		  ::radxide::win::fillGutter .danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText 5 1 "#FFFFFF" "#222223"
+      ::radxide::win::Yview {.danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText} scroll -1 units 
+      ::radxide::win::Yview {.danwin.fra.pan.fra2.text .danwin.fra.pan.fra2.gutText} scroll 1 units
+		  
       return -code break
     }      
   }