|
@@ -27,6 +27,7 @@ namespace eval menu {
|
|
|
namespace upvar ::radxide dan dan menu menu
|
|
namespace upvar ::radxide dan dan menu menu
|
|
|
|
|
|
|
|
global version
|
|
global version
|
|
|
|
|
+ global os
|
|
|
|
|
|
|
|
set aboutTEXT ""
|
|
set aboutTEXT ""
|
|
|
#set aboutTEXT "MIT Licence.\n\n\n"
|
|
#set aboutTEXT "MIT Licence.\n\n\n"
|
|
@@ -70,7 +71,7 @@ namespace eval menu {
|
|
|
$m2 add separator
|
|
$m2 add separator
|
|
|
$m2 add command -label Options -command { ::radxide::menu::edit::setup }
|
|
$m2 add command -label Options -command { ::radxide::menu::edit::setup }
|
|
|
set m3 [menu $m.help -tearoff 0]
|
|
set m3 [menu $m.help -tearoff 0]
|
|
|
- $m3 add command -label About -command { tk_messageBox -title $dan(TITLE) -icon info -message "\n\nRADXIDE ver $version\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\n2019-2021 Tcler's Wiki\n\nhttps://5mode.com\n\n\n"}
|
|
|
|
|
|
|
+ $m3 add command -label About -command { tk_messageBox -title $dan(TITLE) -icon info -message "\n\nRADXIDE ver $version\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\n2018-2021 Tcler's Wiki\n\nhttps://5mode.com\n\n___________________________________\n\nWork dir:\n$dan(WORKDIR)\n\nOS: $os\n\n\n"}
|
|
|
return $m
|
|
return $m
|
|
|
}
|
|
}
|
|
|
|
|
|
