/usr/share/octave/site/m/sundialsTB/kinsol/kim/kim_info.m is in octave-sundials 2.5.0-3+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | function varargout = kim_info(action, fin, message);
switch action
case 0 % initialize
% Create figure
f = figure;
set(f,'resizefcn','kim_info(2,0,0)');
set(f,'name','KINSOL info','numbertitle','off');
set(f,'menubar','none','tag','figure');
% Create text box
tbpos=getTBPos(f);
h=uicontrol(f,'style','listbox','position',tbpos,'tag','textbox');
set(h,'BackgroundColor',[1 1 1]);
set(h,'SelectionHighlight','off');
% Create OK button
bpos=getOKPos(f);
h=uicontrol(f,'style','pushbutton','position',bpos,'string','Close','tag','okaybutton');
set(h,'callback','kim_info(3,0,0)');
% Save handles
handles=guihandles(f);
guidata(f,handles);
varargout{1} = f;
case 1 % append text
f = fin;
new_str = message;
handles=guidata(f);
string = get(handles.textbox,'String');
string{end+1}=new_str;
set(handles.textbox,'String',string);
case 2 % resize
handles=guidata(gcbo);
tbpos=getTBPos(handles.figure);
bpos=getOKPos(handles.figure);
set(handles.okaybutton,'position',bpos);
set(handles.textbox,'position',tbpos);
case 3 % close
handles=guidata(gcbo);
close(handles.figure);
end
%------------------------------------
function tbpos=getTBPos(f)
margins=[10 10 10 50]; % left, right, top, bottom
pos=get(f,'position');
tbpos=[margins(1) margins(4) pos(3)-margins(1)-margins(2) ...
pos(4)-margins(3)-margins(4)];
tbpos(tbpos<1)=1;
%------------------------------------
function tbpos=getOKPos(f)
bsize=[60,30];
badjustpos=[0,25];
pos=get(f,'position');
tbpos=[pos(3)/2-bsize(1)/2+badjustpos(1) -bsize(2)/2+badjustpos(2)...
bsize(1) bsize(2)];
tbpos=round(tbpos);
tbpos(tbpos<1)=1;
|