"README.md" did not exist on "0e1f662062e3f376aef244b81705d22e8c39a1ba"
Newer
Older
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
function [url, user, pass] = user_url_pw_input_dialog
%user_url_pw_input
% Return the URL, user name and password for the openBIS server
url = 'https://XYZ.ethz.ch/openbis:8443';
user = '';
pass = '';
ScreenSize = get(0,'ScreenSize');
fig = uifigure('Name', 'Enter openBIS credentials', 'Position',[(ScreenSize(3:4)-[300 75])/2 400 150]);
fig.CloseRequestFcn = @(fig,event)my_closereq(fig);
% URL label and text field
lbl_url = uilabel(fig, 'Text', 'URL:', ...
'Position',[10 120 80 20]);
txt_url = uieditfield(fig,...
'Position',[70 120 280 20], ...
'Value', url, ...
'Tag', 'url_textfield');
% User label and text field
lbl_user = uilabel(fig, 'Text', 'User:', ...
'Position',[10 90 80 20]);
txt_user = uieditfield(fig,...
'Position',[70 90 280 20], ...
'Value', user, ...
'Tag', 'user_textfield');
% Password label and text field
lbl_pass = uilabel(fig, 'Text', 'Password:', ...
'Position',[10 60 80 20]);
txt_pass = uieditfield(fig,...
'Position',[70 60 280 20], ...
'Tag', 'pass_textfield', ...
'ValueChangingFcn', @textChanging, ...
'UserData', '');
% Push button to accept entries
btn = uibutton(fig,'push', ...
'Position',[150 10 100 40], ...
'Text', 'Connect', ...
'FontWeight', 'bold', ...
'ButtonPushedFcn', @(btn,event) buttonPushed(btn, fig));
uiwait(fig)
% run this when figure closes
function my_closereq(fig,selection)
url = get(txt_url, 'Value');
user = get(txt_user, 'Value');
pass = get(txt_pass,'UserData');
delete(fig)
end
end
% Callback functions
function textChanging(txt, event)
% replace typed text with stars
% Todo: handle delete / backspace
% disp(event.Value);
if isempty(txt.UserData)
txt.UserData = event.Value;
else
txt.UserData = append(txt.UserData, event.Value(end));
end
val = event.Value;
if ~isempty(val)
val(1:length(val)) = '*';
else
val = '*';
end
txt.Value = val;
end
function buttonPushed(btn, fig)
% close the figure, call CloseRequestFcn before
close(fig)
end