Browse code

searchlight ready. missing nifti-image-write support. added timing to FBS

git-svn-id: https://svn.discofish.de/MATLAB/spmtoolbox/SVMCrossVal@167 83ab2cfd-5345-466c-8aeb-2b2739fb922d

Christoph Budziszewski authored on30/03/2009 17:54:25
Showing1 changed files
1 1
new file mode 100644
... ...
@@ -0,0 +1,33 @@
1
+%  Imbed a zoom menu to any figure.
2
+%
3
+%  Usage: rri_zoom_menu(fig);
4
+%
5
+
6
+%  - Jimmy Shen (jimmy@rotman-baycrest.on.ca)
7
+%
8
+%--------------------------------------------------------------------
9
+function menu_hdl = rri_zoom_menu(fig)
10
+
11
+   if isnumeric(fig)
12
+      menu_hdl = uimenu('Parent',fig, ...
13
+   	   'Label','Zoom on', ...
14
+	   'Userdata', 1, ...
15
+           'Callback','rri_zoom_menu(''zoom'');');
16
+
17
+      return;
18
+   end
19
+
20
+   zoom_on_state = get(gcbo,'Userdata');
21
+
22
+   if (zoom_on_state == 1)
23
+      zoom on;
24
+      set(gcbo,'Userdata',0,'Label','Zoom off');
25
+      set(gcbf,'pointer','crosshair');
26
+   else
27
+      zoom off;
28
+      set(gcbo,'Userdata',1,'Label','Zoom on');
29
+      set(gcbf,'pointer','arrow');
30
+   end
31
+
32
+   return					% rri_zoom_menu
33
+