Panel should be opaque for bgcolor to apply.
[scilab.git] / scilab / modules / atoms / macros / atoms_gui / atomsGuiResizeFcn.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2012 - DIGITEO - Vincent COUVERT
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution. The terms
7 // are also available at
8 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
9
10 function atomsGuiResizeFcn()
11
12     atomsfig = findobj("tag","atomsFigure");
13     atomsfigPosition = atomsfig.axes_size;
14     figwidth     = atomsfigPosition(1);
15     figheight    = atomsfigPosition(2);
16
17     margin       = 10;
18     widgetHeight   = 25;
19     msgHeight    = 30;
20     buttonHeight   = 20;
21
22     listboxWidth        = 200;
23     listboxFrameWidth     = listboxWidth + 2*margin;
24     listboxFrameHeight    = figheight- 3*margin - msgHeight;
25     listboxHeight       = listboxFrameHeight - 2*margin;
26
27     descFrameWidth       = figwidth - listboxFrameWidth - 3*margin;
28     descFrameHeight      = listboxFrameHeight;
29     descWidth        = descFrameWidth  - 2*margin;
30     descHeight         = descFrameHeight - 4*margin - buttonHeight;
31
32     msgWidth     = figwidth -2*margin;
33
34     // Test for objects creation
35     msgText = findobj("Tag", "msgText"); // Last uicontrol to be created
36     if isempty(msgText) then
37         return
38     end
39
40     // Frame
41     LeftFrame = findobj("Tag", "LeftFrame");
42     set(LeftFrame, "Position", [margin widgetHeight+2*margin listboxFrameWidth listboxFrameHeight]);
43
44     // Listbox
45     LeftListbox = findobj("Tag", "LeftListbox");
46     set(LeftListbox, "Position", [ margin margin listboxWidth listboxHeight]);
47
48     // Frame
49     DescFrame = findobj("Tag", "DescFrame");
50     set(DescFrame, "Position", [listboxFrameWidth+2*margin widgetHeight+2*margin descFrameWidth descFrameHeight]);
51
52     // Frame title
53     DescTitle = findobj("Tag", "DescTitle");
54     set(DescTitle, "Position", [2*margin descFrameHeight-1.5*margin 200 widgetHeight]);
55
56     // Details of a module
57     Desc = findobj("Tag", "Desc");
58     set(Desc, "Position", [ margin margin+buttonHeight+2*margin descWidth descHeight]);
59
60     // Buttons
61     // -------------------------------------------------------------------------
62
63     buttonWidth = (descFrameWidth - 4*margin) / 3;
64
65     // "Remove" Button
66     removeButton = findobj("Tag", "removeButton");
67     set(removeButton, "Position", [margin margin buttonWidth widgetHeight]);
68
69     // "Install" Button
70     installButton = findobj("Tag", "installButton");
71     set(installButton, "Position", [buttonWidth+2*margin margin buttonWidth widgetHeight]);
72
73     // "Update" Button
74     updateButton = findobj("Tag", "updateButton");
75     set(updateButton, "Position", [2*buttonWidth+3*margin margin buttonWidth widgetHeight]);
76
77     // Installed Modules: List of installed modules
78     // =========================================================================
79
80     descWidth        = descFrameWidth  - 2*margin;
81     descHeight         = descFrameHeight - 3*margin;
82
83     // Frame
84     HomeFrame = findobj("Tag", "HomeFrame");
85     set(HomeFrame, "Position", [listboxFrameWidth+2*margin widgetHeight+2*margin descFrameWidth descFrameHeight]);
86
87     // Frame title
88     HomeTitle = findobj("Tag", "HomeTitle");
89     set(HomeTitle, "Position", [2*margin descFrameHeight-1.5*margin 200 widgetHeight]);
90
91     // Home
92     HomeListbox = findobj("Tag", "HomeListbox");
93     set(HomeListbox, "Position", [ margin margin descWidth descHeight]);
94
95     // Message Frame
96     // =========================================================================
97
98     // Frame
99     msgFrame = findobj("Tag", "msgFrame");
100     set(msgFrame, "Position", [margin margin msgWidth msgHeight]);
101
102     // Text
103     msgText = findobj("Tag", "msgText")
104     set(msgText, "Position", [2 2 msgWidth-10 msgHeight-4]);
105
106 endfunction