/
menu.tcl
104 lines (89 loc) · 5.35 KB
/
menu.tcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
###########################################################
# Name: menu.tcl
# Author: Daniele Bonini (posta@elettronica.lol)
# Date: 27/11/2023
# Desc: Menu namespace of RadXIDE.
#
# Menu namespace and most of the code
# here presented and distributed contains excerpts
# from [alited](https://github.com/aplsimple/alited
# by Alex Plotnikov and contributors to the project.
# The original code of these excerpts could be
# borrowed from other sources which the author
# and the contributors to this RadXIDE have no
# knowledge about.
#
# License: MIT. Copyrights 5 Mode (Last implementation and adaptations.)
# Copyright (c) 2021-2023 Alex Plotnikov https://aplsimple.github.io (original scaffolding and excerpts.)
#
###########################################################
namespace eval menu {
# ________________________ MenuScaf _________________________ #
proc menuScaf {} {
namespace upvar ::radxide dan dan menu menu
global version
global os
# menu
set menu(ROOT) [set m [menu .mb]]
$m add cascade -label File -menu $m.file
set m1 [menu $m.file -tearoff 0]
set menu(FILE) $m1
$m1 add command -label "New project" -command { ::radxide::menu::file::newProject } -accelerator Ctrl+N
$m1 add command -label "Open project" -command { ::radxide::menu::file::openProject } -accelerator Ctrl+O
$m1 add command -label "Add file" -command { ::radxide::menu::file::addFile } -accelerator Ctrl+Shift+N -state disabled
$m1 add separator
$m1 add command -label "Save as.." -command { ::radxide::menu::file::saveFileAs } -accelerator Ctrl+Shift+S -state disabled
$m1 add command -label "Save" -command { ::radxide::menu::file::saveFile } -accelerator Ctrl-S -state disabled
$m1 add separator
$m1 add command -label "Close" -command { ::radxide::menu::file::closeFile } -accelerator Ctrl+Shift+X -state disabled
$m1 add command -label "Close project" -command { ::radxide::menu::file::closeProject } -accelerator Ctrl+Alt+X -state disabled
$m1 add separator
$m1 add command -label Exit -command { ::radxide::menu::file::quit } -accelerator Ctrl+Q
$m add cascade -label Edit -menu $m.edit
set m2 [menu $m.edit -tearoff 0]
set menu(EDIT) $m2
$m add cascade -label Help -menu $m.help
$m2 add command -label Undo -command { ::radxide::menu::edit::makeUndo "menu" } -accelerator Ctrl+Z -state disabled
$m2 add command -label Redo -command { ::radxide::menu::edit::makeRedo "menu" } -accelerator Ctrl+Shift+Z -state disabled
$m2 add separator
$m2 add command -label Copy -command { ::radxide::menu::edit::makeCopy "menu"} -accelerator Ctrl+C -state disabled
$m2 add command -label Paste -command { ::radxide::menu::edit::makePaste "menu"} -accelerator Ctrl+P -state disabled
$m2 add command -label Cut -command { ::radxide::menu::edit::makeCut "menu"} -accelerator Ctrl+X -state disabled
$m2 add separator
$m2 add command -label Indent -command { ::radxide::menu::edit::Indent "menu" } -accelerator Tab -state disabled
$m2 add command -label UnIndent -command { ::radxide::menu::edit::UnIndent "menu"} -accelerator Shift+Tab -state disabled
$m2 add separator
$m2 add command -label Find -command { ::radxide::menu::edit::find } -accelerator Ctrl+F -state disabled
$m2 add command -label "Go to Line" -command { ::radxide::menu::edit::GotoLine } -accelerator Ctrl+G -state disabled
$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 $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
}
# ________________________ defMUShortcuts _________________________ #
proc defWinShortcuts {ctrl canvas} {
namespace upvar ::radxide dan dan
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 "<Tab>" { ::radxide::menu::edit::Indent }
#bind $ctrl "<ISO_Left_Tab>" { ::radxide::menu::edit::UnIndent }
#bind $ctrl "<ISO_Right_Tab>" { ::radxide::menu::edit::UnIndent }
bind $ctrl "<Control-z>" "::radxide::menu::edit::makeUndo"
bind $ctrl "<Control-Shift-z>" "::radxide::menu::edit::makeRedo"
bind $ctrl "<Control-c>" "::radxide::menu::edit::makeCopy"
bind $ctrl "<Control-v>" "::radxide::menu::edit::makePaste"
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::menu::edit::makeNewLine"
#bind $ctrl "<Tab>" "::radxide::win::insertTab"
}
#_______________________
source [file join $::radxide::SRCDIR file.tcl]
source [file join $::radxide::SRCDIR edit.tcl]
}
# _________________________________ EOF _________________________________ #