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
|
function Shortcuts_()
%rr=lines()
lines(0)
disp(%scicos_short)
lines(%rr(2));
xpause(1000)
xinfo('Select an item in a menu to set shortcut')
[btn,xc,yc,cwin,Cmenu]=cosclick()
if Cmenu<>'Quit' then
%okay=%f
if Cmenu<>[] then
%koko=find(%scicos_short(:,2)==Cmenu)
if %koko<>[] then
txt=x_mdialog(['Edit the short cut (a-z)';'only lower case letters allowed'],..
%scicos_short(%koko,2),%scicos_short(%koko,1))
if txt<>[] then
if txt<>emptystr() then txt=part(txt(1),1);end
if find(txt==%scicos_short(:,1))<>[] then
message(txt+' already in use for '+..
%scicos_short( find(txt==%scicos_short(:,1)),2))
elseif txt==emptystr() then
%scicos_short=[%scicos_short(1:%koko-1,:);
%scicos_short(%koko+1:$,:)];%okay=%t;
elseif ascii(txt)>122|ascii(txt)<97 then
message(txt+' is not in a-z')
else
%scicos_short(%koko,1)=txt;%okay=%t;
end
end
else
%koko=find(%cor_item_exec(:,1)==Cmenu)
if %koko<>[] then
txt=x_mdialog(['Add new short cut (a-z)';'only lower case letters allowed'],..
%cor_item_exec(%koko,1),emptystr())
if txt<>[] then
txt=part(txt(1),1)
if find(txt==%scicos_short(:,1))<>[] then
message(txt+' already in use for '+..
%scicos_short( find(txt==%scicos_short(:,1)),2))
elseif ascii(txt)>122|ascii(txt)<97 then
message(txt+' is not in a-z')
else
%scicos_short=[%scicos_short;..
[part(txt(1),1),%cor_item_exec(%koko,1)]];
%okay=%t
end
end
end
end
if %okay then
errcatch(-1,'continue')
save('.scicos_short',%scicos_short)
errcatch(-1)
if iserror(-1) then
errclear(-1)
message('Cannot save .scicos_short in current directory')
end
%tableau=emptystr([1:100]);
for %Y=1:size(%scicos_short,1)
%tableau(-31+ascii(%scicos_short(%Y,1)))=%scicos_short(%Y,2);
end
end
Cmenu=[]
end
xinfo(' ')
end
|
