svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Исправлена работа в windows

Browse Source
This commit is contained in:
Sergey Kalinin
2025-10-27 20:59:27 +03:00
parent 9b083515ba
commit 297d0f7420
4 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/editor.tcl
View File

@@ -1515,6 +1515,7 @@ namespace eval Editor {
ICO ICO
XPM XPM
} }
# puts "$itemName"
set fr $itemName set fr $itemName
if ![string match "*untitled*" $itemName] { if ![string match "*untitled*" $itemName] {
set lblText $fileFullPath set lblText $fileFullPath

6
lib/files.tcl
View File

@@ -395,6 +395,7 @@ namespace eval FileOper {
proc Edit {fileFullPath {nbEditor .frmWork.nbEditor}} { proc Edit {fileFullPath {nbEditor .frmWork.nbEditor}} {
global tree global tree
puts "$fileFullPath"
if {[file exists $fileFullPath] == 0} { if {[file exists $fileFullPath] == 0} {
return false return false
} else { } else {
@@ -414,7 +415,9 @@ namespace eval FileOper {
} }
set filePath [file dirname $fileFullPath] set filePath [file dirname $fileFullPath]
set fileName [file tail $fileFullPath] set fileName [file tail $fileFullPath]
regsub -all {\.|/|\\|\s} $fileFullPath "_" itemName
regsub -all {\.|/|\\|\s|:} $fileFullPath "_" itemName
set itemName [string tolower $itemName]
set itemName "$nbEditor.$itemName" set itemName "$nbEditor.$itemName"
set treeItemName [Tree::InsertItem $tree {} $fileFullPath "file" $fileName] set treeItemName [Tree::InsertItem $tree {} $fileFullPath "file" $fileName]
@@ -437,6 +440,7 @@ namespace eval FileOper {
focus -force $itemName.frmText.t.t focus -force $itemName.frmText.t.t
.frmStatus.lblSize configure -text [GetFileAttr $fileFullPath "size"] .frmStatus.lblSize configure -text [GetFileAttr $fileFullPath "size"]
.frmStatus.lblEncoding configure -text [GetFileMimeType $fileFullPath "charset"] .frmStatus.lblEncoding configure -text [GetFileMimeType $fileFullPath "charset"]
puts ">> $itemName"
return $itemName return $itemName
} }

4
lib/notebook.tcl
View File

@@ -13,7 +13,9 @@ namespace eval NB {
proc InsertItem {nb item type} { proc InsertItem {nb item type} {
switch $type { switch $type {
file { file {
regsub -all {\.|/|\\|\s} $item "_" itemName set item [string tolower $item]
regsub -all {\.|/|\\|\s|:} $item "_" itemName
# puts "$item -> $itemName"
if [winfo exists $nb.$itemName] { if [winfo exists $nb.$itemName] {
set fm $nb.$itemName set fm $nb.$itemName
} else { } else {

9
lib/tree.tcl
View File

@@ -18,7 +18,8 @@ namespace eval Tree {
# puts "$tree $parent $item $type $text" # puts "$tree $parent $item $type $text"
switch $type { switch $type {
file { file {
regsub -all {\.|/|\\|\s} $item "_" subNode regsub -all {\.|/|\\|\s|:} $item "_" subNode
set subNode [string tolower $subNode]
# puts "Inserted tree node: $subNode" # puts "Inserted tree node: $subNode"
set fileExt [string trimleft [file extension $text] "."] set fileExt [string trimleft [file extension $text] "."]
#set fileName [string trimleft [file extension $text] "."] #set fileName [string trimleft [file extension $text] "."]
@@ -41,7 +42,8 @@ namespace eval Tree {
} }
} }
directory { directory {
regsub -all {\.|/|\\|\s} $item "_" subNode regsub -all {\.|/|\\|\s|:} $item "_" subNode
set subNode [string tolower $subNode]
# puts $subNode # puts $subNode
if {[string match {*debian*} [string tolower [file tail $item]]]} { if {[string match {*debian*} [string tolower [file tail $item]]]} {
set image [::FindImage debian] set image [::FindImage debian]
@@ -104,7 +106,7 @@ namespace eval Tree {
set key [lindex [split $id "::"] 0] set key [lindex [split $id "::"] 0]
if {$values eq "" || $key eq ""} {return} if {$values eq "" || $key eq ""} {return}
# puts "$key $tree $values" puts "$key $tree $values"
switch -regexp $key { switch -regexp $key {
directory { directory {
FileOper::ReadFolder $values FileOper::ReadFolder $values
@@ -112,6 +114,7 @@ namespace eval Tree {
} }
file { file {
set v [FileOper::Edit $values $nbEditor] set v [FileOper::Edit $values $nbEditor]
puts $v
if {$v eq false} { if {$v eq false} {
$tree delete $id $tree delete $id
} }