Новая сборка

README.md

@@ -160,9 +160,11 @@ Or type "projman" into terminal, Or choose the name of the program "Projman" on
 - Alt-K - Open folder
 
 ### Work with external tools
+
 ProjMan allows you to connect any external tools to the editor. To do this, you need to add an entry to the file ~/.config/projman/tools.ini.
 
 Calling an external program is available through the main and pop-up menus. To transfer the parameters, write the appropriate template in the file.
+
  - %s - template for substituting selected text in the editor
  - %f - template for substituting selected file\(s\) in the file tree
 
@@ -185,9 +187,8 @@ shortCut=
 ## Credits
 
 Sergey Kalinin - author
-svk@nuk-svk.ru
+
-http://nuk-svk.ru
+Home page: [nuk-svk.ru](https://nuk-svk.ru). E-mail: [svk@nuk-svk.ru](svk@nuk-svk.ru)
 
 Laurent Riesterer - VisualREGEXP and TkDIFF+ parts
-laurent.riesterer@free.fr
+laurent.riesterer@free.fr [http://laurent.riesterer.free.fr](http://laurent.riesterer.free.fr)
-http://laurent.riesterer.free.fr

debian/changelog

@@ -1,3 +1,28 @@
+projman (2.0.0-beta6) stable; urgency=medium
+
+  *  Добавлены настройки для просмотрщика MD в части касаемой ссылок и выделения текста.
+  *  Добавлена обработка тэгов выдеоления текста курсивом или тодщиной. Релизована обработка показа ссылок и вызова брузера при щелчке на ссылке.
+  *  Добавлены процедуры отображение подсказок и запуска броузера для ссылок.
+  *  Добавил выбор и вставку цвета в виде кода #nnnnnn
+  *  Добавил выбор и вставку цвета в виде кода #nnnnnn
+  *  Добавил корректный путь к readme для rpm пакетов
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Fri, 27 Mar 2026 11:41:21 +0300
+
+projman (2.0.0-beta6) stable; urgency=medium
+
+  *  Отключил сжатие README.md в пакете
+  *  Добавил README.md по F1. Сделал черновой вариант парсера и визуализатора MD
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Thu, 26 Mar 2026 19:39:54 +0300
+
+projman (2.0.0-beta5) stable; urgency=medium
+
+  *  Исправил перевод (все равно какой-то кривой)
+  *  Исправил changelog
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Tue, 17 Feb 2026 13:00:42 +0300
+
 projman (2.0.0-beta5) stable; urgency=medium
 
   *  Добавил код из https://github.com/wandrien/projman/tree/master для работы с выделенным текстом. И внес изменения в связи с этим.
@@ -519,3 +544,5 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
+
+

debian/docs

@@ -1,4 +1,2 @@
-README.md
 CHANGELOG
 TODO
-

debian/install

@@ -4,6 +4,6 @@ tkregexp /usr/bin
 lib/*.tcl	/usr/share/projman/lib
 lib/msgs/*	/usr/share/projman/lib/msgs
 theme	/usr/share/projman/
-README.md /usr/share/doc/projman
 projman.desktop	/usr/share/applications
 projman.png /usr/share/pixmaps
+README.md /usr/share/doc/projman/

debian/rules

@@ -1,5 +1,4 @@
 #!/usr/bin/make -f
-# debian/rules for alien
 
 PACKAGE=$(shell dh_listpackages)
 
@@ -21,26 +20,13 @@ binary-arch: build
 	dh_install
 	dh_installdocs
 	dh_installchangelogs
-# Copy the packages's files.
-#	find . -maxdepth 1 -mindepth 1 -not -name debian -print0 | \
-#		xargs -0 -r -i cp -a {} debian/$(PACKAGE)
-
-#
-# If you need to move files around in debian/$(PACKAGE) or do some
-# binary patching, do it here
-#
-
-
-# This has been known to break on some wacky binaries.
-#	dh_strip
 	dh_compress
-#	dh_fixperms
+	gunzip -f debian/$(PACKAGE)/usr/share/doc/$(PACKAGE)/README.md.gz 2>/dev/null || true
 	dh_makeshlibs
 	dh_installdeb
 	-dh_shlibdeps
 	dh_gencontrol
 	dh_md5sums
-#	dh_link
 	dh_builddeb
 
 binary: binary-indep binary-arch

lib/config.tcl

@@ -78,6 +78,25 @@ LUA=lua
 \[Debug\]
 debug=false
 debugOut=stdout
+\[Viewer\]
+listSymbol=०
+viewerFont={Droid Sans Mono} 10
+h1Font={Droid Sans Mono} 20 bold
+h2Font={Droid Sans Mono} 18 bold
+h3Font={Droid Sans Mono} 16 bold
+h4Font={Droid Sans Mono} 14 bold
+h5Font={Droid Sans Mono} 12 bold
+h6Font={Droid Sans Mono} 10 bold
+mdListFont={Droid Sans Mono} 10
+italicFont={Droid Sans Mono} 10 italic
+boldFont={Droid Sans Mono} 10 bold
+italicBoldFont={Droid Sans Mono} 10 bold italic
+codeBlockBG=#7a7a7a
+codeBlockFG=black
+codeBlockFont=Monospace 10 italic
+textBG=#333333
+linkFont={Droid Sans Mono} 10 bold
+linkFG=#54bcff
 "
 proc Config::create {dir} {
     set cfgFile [open [file join $dir projman.ini]  "w+"]

lib/help.tcl

@@ -0,0 +1,29 @@
+######################################################
+#                ProjMan 2
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Copyright (c) "", 2022-2026, https://nuk-svk.ru
+######################################################
+# 
+# Projman Help dialog
+# 
+######################################################
+
+
+proc ShowHelpDialog {} {
+    ShowMD [HelpFileLocation README.md]
+}
+
+proc HelpFileLocation {fileName} {
+    global dir projman
+    if [file exists [file join $dir(lib) $fileName]] {
+        return [file join $dir(lib) fileName]
+    } elseif [file exists [file join /usr/share/doc/projman $fileName]] {
+        return [file join /usr/share/doc/projman $fileName]
+    } elseif [file exists [file join /usr/share/doc/projman-$projman(Version) $fileName]] {
+        return [file join /usr/share/doc/projman-$projman(Version) $fileName]
+    } else {
+        return [file join [pwd] $fileName]
+    }
+    
+}

lib/mdviewer.tcl

@@ -0,0 +1,386 @@
+######################################################
+#                ProjMan 2
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Copyright (c) "", 2022-2026, https://nuk-svk.ru
+######################################################
+#
+# The markdown file viewer
+#
+######################################################
+
+proc ShowMD {fileFullPath} {
+    global cfgVariables
+
+    set win .viewer
+
+    set parentGeometry [wm geometry .]
+    set parentWidth [winfo width .]
+    set parentHeight [winfo height .]
+    set parentX [winfo x .]
+    set parentY [winfo y .]
+    
+    # Устанавливаем размеры нового окна (меньше на 200)
+    set newWidth [expr {$parentWidth - 200}]
+    set newHeight [expr {$parentHeight - 200}]
+    
+    # Вычисляем позицию для центрирования относительно родительского окна
+    set x [expr {$parentX + ($parentWidth - $newWidth) / 2}]
+    set y [expr {$parentY + ($parentHeight - $newHeight) / 2}]
+    
+    # Применяем геометрию
+
+    if { [winfo exists $win] }  { destroy $win; return false }
+    toplevel $win
+    wm title $win "[::msgcat::mc "Help"]"
+    wm geometry $win ${newWidth}x${newHeight}+${x}+${y}
+    wm overrideredirect $win 0
+    
+    set frm [ttk::frame $win.frmHelp]
+    pack $frm -expand 1 -fill both
+    
+    set txt [text $frm.txt -wrap $cfgVariables(editorWrap) -background $cfgVariables(textBG) \
+        -xscrollcommand "$win.h set" -yscrollcommand "$frm.v set" -font $cfgVariables(viewerFont)]
+    pack $txt -side left -expand 1 -fill both
+    pack [ttk::scrollbar $frm.v -command "$frm.txt yview"] -side right -fill y
+    ttk::scrollbar $win.h -orient horizontal -command "$frm.txt xview"
+    if {$cfgVariables(editorWrap) eq "none"} {
+        pack $win.h -side bottom -fill x
+
+    }
+    bind .viewer <Escape> {destroy .viewer}
+    
+    $txt tag configure h1 -font $cfgVariables(h1Font)
+    $txt tag configure h2 -font $cfgVariables(h2Font)
+    $txt tag configure h3 -font $cfgVariables(h3Font)
+    $txt tag configure h4 -font $cfgVariables(h4Font)
+    $txt tag configure h5 -font $cfgVariables(h5Font)
+    $txt tag configure h6 -font $cfgVariables(h6Font)
+    $txt tag configure mdList -font $cfgVariables(mdListFont)
+    $txt tag configure codeBlock -foreground $cfgVariables(codeBlockFG) \
+        -background $cfgVariables(codeBlockBG) -font $cfgVariables(codeBlockFont)
+    $txt tag configure italic -font $cfgVariables(italicFont)
+    $txt tag configure bold -font $cfgVariables(boldFont)
+    $txt tag configure italicBold -font $cfgVariables(italicBoldFont)
+    $txt tag configure link -foreground $cfgVariables(linkFG) -font $cfgVariables(linkFont)
+
+    set codeBlockBegin false
+
+    set f [open "$fileFullPath" r]
+    set lineNumber 0
+    while {[gets $f line] >= 0} {
+        # puts $line
+        if {$line eq ""} {
+            if {$codeBlockBegin eq "true"} {
+                $txt insert end "\n" codeBlock
+            } else {
+                $txt insert end "\n"
+            }
+            incr lineNumber
+            continue
+        }
+        set result [MarkDownParser $line]
+        # puts $result
+        set textTag [lindex $result 0]
+        if {$textTag eq "codeBlock" && $codeBlockBegin eq "false"} {
+            set codeBlockBegin true
+        } elseif {$textTag eq "codeBlock" && $codeBlockBegin eq "true"} {
+            set codeBlockBegin false
+        }
+        if {$codeBlockBegin eq "true"} {
+            set textTag "codeBlock"
+        }
+        if {$textTag eq "" && $codeBlockBegin eq "false"} {
+            $txt insert end "[lindex $result 1]\n"
+        } elseif {$textTag eq "codeBlockOneString"} {
+            ProcessLineWithCode $line $txt
+        } elseif {$textTag eq "mdList"} {
+            $txt insert end "  $cfgVariables(listSymbol) [lindex $result 1]\n"
+        } elseif {$textTag eq "breakTheLine"} {
+            $txt insert end "[lindex $result 1]\n\n"
+        } elseif {$textTag eq "link"} {
+            ProcessLineWithURL $line $txt $result
+        } elseif {$textTag eq "markable"} {
+            ProcessLineWithMark $line $txt $result
+        } else {
+            $txt insert end "[lindex $result 1]\n" $textTag
+        }
+        incr lineNumber
+    }
+    close $f
+}
+
+proc ProcessLineWithCode {line txt} {
+    set codeBlocks [ExtractCodeBlocks $line {`{1,3}([^`]+)`{1,3}}]
+    
+    if {[llength $codeBlocks] == 0} {
+        $txt insert end "$line\n"
+        return
+    }
+    
+    set lastPos 0
+    
+    foreach block $codeBlocks {
+        # Извлекаем данные из блока
+        set fullMatch   [lindex $block 0]
+        set codeText    [lindex $block 1]
+        set matchPos    [lindex $block 2]
+        set codePos     [lindex $block 3]
+        
+        set start       [lindex $matchPos 0]
+        set end         [lindex $matchPos 1]
+        
+        # Вставляем текст перед кодом
+        if {$start > $lastPos} {
+            set textBefore [string range $line $lastPos [expr {$start - 1}]]
+            $txt insert end $textBefore
+        }
+        
+        # Вставляем код с соответствующим тегом
+        if {[string match "```*" $fullMatch]} {
+            $txt insert end $codeText codeBlock
+        } else {
+            $txt insert end $codeText code_inline
+        }
+        
+        set lastPos [expr {$end + 1}]
+    }
+    
+    # Вставляем остаток строки
+    if {$lastPos < [string length $line]} {
+        $txt insert end [string range $line $lastPos end]
+    }
+    
+    $txt insert end "\n"
+}
+
+# Функция вставки ссылки
+proc InsertLink {txt link url} {
+    global cfgVariables
+    set tag [format "link_%d" [incr ::link_counter]]
+    $txt insert end $link $tag
+    $txt tag configure $tag -foreground $cfgVariables(linkFG) -font $cfgVariables(linkFont)
+    $txt tag bind $tag <Button-1> [list OpenURL $url]
+    # $txt tag bind $tag <Enter> [list $txt configure -cursor hand2]
+    $txt tag bind $tag <Enter> [list InsertLinkEnter $txt $tag $url]
+    $txt tag bind $tag <Leave> [list InsertLinkLeave $txt]
+    # $txt tag bind $tag <Leave> [list InsertLinkLeave $txt $tag]
+    # $txt tag bind $tag <Enter> [list %W tag configure $tag -foreground red]
+    # $txt tag bind $tag <Leave> [list %W tag configure $tag -foreground blue]
+}
+
+proc InsertLinkEnter {txt tag url} {
+    $txt configure -cursor hand2
+    # Показываем подсказку с URL
+    ShowTooltip $txt $url
+}
+
+proc InsertLinkLeave {txt} {
+    if [winfo exists .baloonTip] {destroy .baloonTip}
+    $txt configure -cursor ""
+}
+
+proc ProcessLineWithURL {line txt urlList} {
+    if {[llength $urlList] == 0} {
+        $txt insert end "$line\n"
+        return
+    }
+    set resultLine ""
+    set lastPos 0
+    foreach url [lindex $urlList 1] {
+        set start [lindex [lindex $url 1] 0]
+        set end [lindex [lindex $url 1] 1]
+        set linkName [lindex [lindex $url 2] 0]
+        # set linkStart [lindex [lindex $url 2] 1]
+        # set linkEnd [lindex [lindex $url 2] 2]
+        set urlName [lindex [lindex $url 3] 0]
+        # set urlStart [lindex [lindex $url 3] 1]
+        # set urlEnd [lindex [lindex $url 3] 2]
+        # Вставляем текст перед ссылкой
+        if {$start > $lastPos} {
+            set textBefore [string range $line $lastPos [expr {$start - 1}]]
+            $txt insert end $textBefore
+        }
+        # $txt insert end $linkName link
+        InsertLink $txt $linkName $urlName
+        set lastPos [expr {$end + 1}]
+    }
+
+    # Вставляем остаток строки
+    if {$lastPos < [string length $line]} {
+        $txt insert end [string range $line $lastPos end]
+    }
+    
+    $txt insert end "\n"
+}
+
+proc ProcessLineWithMark {line txt textList} {
+    if {[llength $textList] == 0} {
+        $txt insert end "$line\n"
+        return
+    }
+    set resultLine ""
+    set lastPos 0
+    foreach record [lindex $textList 1] {
+        set start [lindex [lindex $record 2] 0]
+        set end [lindex [lindex $record 2] 1]
+        set markableText [lindex $record 1]
+
+        # Вставляем текст перед ссылкой
+        if {$start > $lastPos} {
+            set textBefore [string range $line $lastPos [expr {$start - 1}]]
+            $txt insert end $textBefore
+        }
+        switch [lindex $record 4] {
+            "*"  {set tag italic}
+            "**" {set tag bold}
+            "***" {set tag italicBold}
+            "_"  {set tag italic}
+            "__" {set tag bold}
+            "___" {set tag italicBold}
+        }
+        $txt insert end " $markableText" $tag
+        set lastPos [expr {$end + 1}]
+    }
+
+    # Вставляем остаток строки
+    if {$lastPos < [string length $line]} {
+        $txt insert end [string range $line $lastPos end]
+    }
+    
+    $txt insert end "\n"
+}
+
+proc MarkDownParser {line} {
+    # Title
+    # [regexp -nocase -line -- {^(#{1,6})\s\w+} $line match sharp]
+    if [regexp -nocase -all -line -- {^(#{1,6})\s(.+)} $line match sharp title] {
+        set titlePrefixLength [string length $sharp]
+        switch $titlePrefixLength {
+            1 {return [list h1 "$title"]}
+            2 {return [list h2 "$title"]}
+            3 {return [list h3 "$title"]}
+            4 {return [list h4 "$title"]}
+            5 {return [list h5 "$title"]}
+            6 {return [list h6 "$title"]}
+        }
+    }
+    # Lists
+    if [regexp -nocase -all -line -- {^\s*(\*|-|\+)\s(.+)} $line match symbol textLine] {
+        # puts $textLine
+        return [list mdList "$textLine"]
+    }
+
+    # Multi-line code block
+    if [regexp -nocase -all -line -- {^```(\w*)} $line match lang] {
+        return [list codeBlock {}]
+    }
+
+    # One string code blockregexp -nocase -all -line -- {(`{1,3}([^`]+)`{1,3})} string match v1 v2
+    
+    if [regexp -nocase -all -line -- {`{1,3}([^`]+)`{1,3}} $line match v1 code v2] {
+        # puts $line
+        set result [ExtractCodeBlocks $line {`{1,3}([^`]+)`{1,3}}]
+        # puts "$v1, $code, $v2"
+        # puts "$result"
+        return [list codeBlockOneString $result]
+    }
+    # Line break (\, <br>, "  ")
+    if [regexp -nocase -all -line -linestop -- {(.*)(\B|<br>| {2,})$} $line match v1 v2] {
+        return [list breakTheLine $v1]
+    }
+    # Italic text
+    if [regexp -nocase -all -line -linestop -- {(^|\s+)(_{1,3}|\*{1,3})([^_\*]+)(_{1,3}|\*{1,3})} $line match v1 v2 v3 v4] {
+        set result [ExtractBlocks $line {(^|\s+)(_{1,3}|\*{1,3})([^_\*]+)(_{1,3}|\*{1,3})}]
+        return [list markable $result]
+    }
+    # URL (link) parser
+    if [regexp -nocase -all -line -linestop -- {\[([^\]]+)\]\(([^)]+)\)} $line match v1 v2] {
+        set result [ExtractURL $line {\[([^\]]+)\]\(([^)]+)\)}]
+        return [list link $result]
+    }
+
+    return [list {} $line]
+
+}
+
+proc ExtractCodeBlocks {line pattern} {
+    # set pattern {`{1,3}([^`]+)`{1,3}}
+    set result {}
+    
+    # Ищем все вхождения
+    set pos 0
+    while {[regexp -indices -start $pos -- $pattern $line match code]} {
+        set start [lindex $match 0]
+        set end [lindex $match 1]
+        set codeStart [lindex $code 0]
+        set codeEnd [lindex $code 1]
+        
+        # Получаем текст кода без кавычек
+        set codeText [string range $line $codeStart $codeEnd]
+        
+        # Получаем полный текст с кавычками
+        set fullMatch [string range $line $start $end]
+        
+        lappend result [list $fullMatch $codeText [list $start $end] [list $codeStart $codeEnd]]
+        
+        set pos [expr {$end + 1}]
+    }
+    return $result
+}
+
+proc ExtractURL {line pattern} {
+    set result {}
+    
+    # Ищем все вхождения
+    set pos 0
+    while {[regexp -indices -start $pos -- $pattern $line match link url]} {
+        set start [lindex $match 0]
+        set end [lindex $match 1]
+        set linkStart [lindex $link 0]
+        set linkEnd [lindex $link 1]
+        set urlStart [lindex $url 0]
+        set urlEnd [lindex $url 1]
+        
+        # Получаем текст ссылки без кавычек
+        set linkText [string range $line $linkStart $linkEnd]
+        # Получаем текст url без кавычек
+        set urlText [string range $line $urlStart $urlEnd]
+        
+        # Получаем полный текст с кавычками
+        set fullMatch [string range $line $start $end]
+        
+        lappend result [list $fullMatch [list $start $end] [list $linkText $linkStart $linkEnd] [list $urlText $urlStart $urlEnd]]
+        
+        set pos [expr {$end + 1}]
+    }
+    
+    return $result
+}
+
+proc ExtractBlocks {line pattern} {
+    set result {}
+    
+    # Ищем все вхождения
+    set pos 0
+    while {[regexp -indices -start $pos -- $pattern $line match v1 blockSymbolBegin code blocSymbolEnd]} {
+        set start [lindex $match 0]
+        set end [lindex $match 1]
+        set codeStart [lindex $code 0]
+        set codeEnd [lindex $code 1]
+        
+        # Получаем текст кода без кавычек
+        set codeText [string range $line $codeStart $codeEnd]
+        
+        # Получаем полный текст с кавычками
+        set fullMatch [string range $line $start $end]
+        
+        lappend result [list $fullMatch $codeText [list $start $end] [list $codeStart $codeEnd] [string range $line [lindex $blockSymbolBegin 0] [lindex $blockSymbolBegin 1]]]
+        
+        set pos [expr {$end + 1}]
+    }
+    return $result
+}
+
+
+

lib/menu.tcl

@@ -86,6 +86,8 @@ proc GetEditMenu {m} {
     $m add separator
     $m add command -label [::msgcat::mc "Insert image"] -accelerator "Ctrl+I"\
         -command ImageBase64Encode
+    $m add command -label [::msgcat::mc "Insert color code"]\
+        -command ChooseColor
     $m add separator
     $m add command -label [::msgcat::mc "Settings"] -command Settings
 }
@@ -190,4 +192,3 @@ proc GetConvertIdentCaseMenu {m} {
 }
 # 2026 Vadim Ushakov <wandrien.dev@gmail.com>
 # ============================================================
-

lib/msgs/en.msg

@@ -18,6 +18,7 @@
 ::msgcat::mcset en "Braces foreground"
 ::msgcat::mcset en "Cancel"
 ::msgcat::mcset en "Can't found file:"
+::msgcat::mcset en "Choose color"
 ::msgcat::mcset en "Close"
 ::msgcat::mcset en "Close all"
 ::msgcat::mcset en "Close Project Manager?"
@@ -85,6 +86,7 @@
 ::msgcat::mcset en "Indent foreground"
 ::msgcat::mcset en "Indent background"
 ::msgcat::mcset en "Interface language"
+::msgcat::mcset en "Insert color code"
 ::msgcat::mcset en "Insert image"
 ::msgcat::mcset en "Install Tcl/Tk Project Manager"
 ::msgcat::mcset en "Input file name"
@@ -204,4 +206,3 @@
 ::msgcat::mcset en "SCREAMING-KEBAB-CASE"
 ::msgcat::mcset en "Train-Case"
 ::msgcat::mcset en "space separated"
-

lib/msgs/ru.msg

@@ -24,6 +24,7 @@
 ::msgcat::mcset ru "Cancel" "Отмена"
 ::msgcat::mcset ru "Can't found file:" "Не найден файл:"
 ::msgcat::mcset ru "Char" "Символ"
+::msgcat::mcset ru "Choose color" "Выбор цвета"
 ::msgcat::mcset ru "Close" "Закрыть"
 ::msgcat::mcset ru "Close all" "Закрыть все"
 ::msgcat::mcset ru "Close file" "Закрыть файл"
@@ -111,6 +112,7 @@
 ::msgcat::mcset ru "Init repository" "Создать репозиторий"
 ::msgcat::mcset ru "Insert" "Вставка"
 ::msgcat::mcset ru "In" "В"
+::msgcat::mcset ru "Insert color code" "Вставить код цвета"
 ::msgcat::mcset ru "Insert image" "Вставить изображение"
 ::msgcat::mcset ru "Interface language" "Язык интерфейса"
 ::msgcat::mcset ru "Interpetator" "Интерпретатор"

lib/procedure.tcl

@@ -1231,3 +1231,46 @@ proc DebugPuts {msg} {
         }
     }
 }
+
+proc ChooseColor {} {
+    global nbEditor
+    
+    set txt "[$nbEditor select].frmText.t"
+
+    set color [tk_chooseColor -initialcolor white -title  [::msgcat::mc "Choose color"] -parent .]
+    if {$color ne "" && [winfo exists $txt] == 1} {
+        $txt insert insert "$color"
+    }
+}
+
+proc OpenURL {url} {
+    global tcl_platform
+    
+    if {$tcl_platform(platform) == "windows"} {
+        set cmd "cmd /c start $url"
+    } elseif {$tcl_platform(platform) == "mac"} {
+        set cmd "open $url"
+    } elseif {$tcl_platform(platform) == "unix"} {
+        set cmd "xdg-open $url"
+    }
+    puts $cmd
+    set pipe [open "|$cmd" "r"]
+    puts $pipe
+    fileevent $pipe readable
+    fconfigure $pipe -buffering none -blocking no
+}
+
+proc ShowTooltip {widget showingText} {
+    if [winfo exists .baloonTip] {destroy .baloonTip}
+    set tip [toplevel .baloonTip -bg white -bd 1 -relief solid]
+    wm transient $tip .
+    wm overrideredirect $tip 1
+    set x [winfo pointerx $widget]
+    set y [winfo pointery $widget]
+    
+    wm geometry $tip +[expr {$x + 10}]+[expr {$y + 10}]
+    
+    label $tip.l -text $showingText -bg white
+    pack $tip.l
+    after 5000 [list destroy $tip]
+}

projman.tcl

@@ -9,8 +9,8 @@ exec wish8.6 "$0" -- "$@"
 # Home page: https://nuk-svk.ru
 ######################################################
 # Version: 2.0.0
-# Release: beta5
+# Release: beta6
-# Build: 17022026124216
+# Build: 08042026164832
 ######################################################
 
 # определим текущую версию, релиз и т.д.

redhat/projman.spec

@@ -70,6 +70,14 @@ fi
 %{_iconsdir}/hicolor/48x48/apps/projman.png
 
 %changelog
+* Fri Mar 27 2026 Sergey Kalinin <svk@nuk-svk.ru> 2.0.0-beta6
+    -  Отключил сжатие README.md в пакете
+    -  Добавил README.md по F1. Сделал черновой вариант парсера и визуализатора MD
+
+* Tue Feb 17 2026 Sergey Kalinin <svkalinin@samsonpost.ru> 2.0.0-beta5
+    -  Исправил перевод (все равно какой-то кривой)
+    -  Исправил changelog
+
 * Tue Feb 17 2026 Sergey Kalinin <svkalinin@samsonpost.ru> 2.0.0-beta5
     -  Добавил код из https://github.com/wandrien/projman/tree/master для работы с выделенным текстом. И внес изменения в связи с этим.
     -  Исправления работы с С
@@ -243,3 +251,5 @@ fi
 
 
 
+
+