Create a window in Scol » History » Version 1
iri, 10/01/2012 09:43 PM
1 | 1 | iri | h1. Create a window in Scol |
---|---|---|---|
2 | |||
3 | A window is a base of all graphic interface ; it is a container. The Scol type is *ObjWin*. |
||
4 | |||
5 | h2. Creation |
||
6 | |||
7 | To create a window, simple use the Scol function "*_CRwindow*":http://www.scolring.org/files/doc_html/_crwindow.html |
||
8 | |||
9 | <window_object> *_CRwindow* <channel_object> <father_object> <initial_position_x> <initial_position_y> <initial_width> <initial_height> <option_flags> <title> |
||
10 | |||
11 | # <channel_object> : the proprietary channel. If nil, the windown can *not* be created, if the channel os closed, the window will be destroyed. Typically, it is the current channel (__channel_) |
||
12 | # <father_object> : the parent window, if any. If no parent, you should set to nil this argument. |
||
13 | # <initial_position_x> |
||
14 | # <initial_position_y> |
||
15 | # <initial_width> |
||
16 | # <initial_height> : position and size when the window is created |
||
17 | # <option_flags> : several flags are availables to customize the window (see "doc":http://www.scolring.org/files/doc_html/_crwindow.html) |
||
18 | # <title> : a title, if any |
||
19 | |||
20 | You can directly hide a window. In this case, don't forget to show it when needed ("_SHOWwindow":http://www.scolring.org/files/doc_html/_showwindow.html) ! |
||
21 | |||
22 | You can also create a window object with scroll : "_CRscrollWindow":http://www.scolring.org/files/doc_html/_crscrollwindow.html |
||
23 | |||
24 | h2. Destruction |
||
25 | |||
26 | To destroy a window object, use "_DSwindow":http://www.scolring.org/files/doc_html/_dswindow.html |
||
27 | |||
28 | <integer> *_DSwindow* <object_window> |
||
29 | |||
30 | If the <object_window> is already destroyed, nothing to do. If the <object_window> is stored in a global variable, you should always set it to nil *after* the destruction of the object. |
||
31 | |||
32 | h2. Example : |
||
33 | |||
34 | <pre>typeof window = ObjWin;; |
||
35 | |||
36 | fun end ()= |
||
37 | _DSwindow window; |
||
38 | _closemachine;; |
||
39 | |||
40 | fun create ()= |
||
41 | set window = _CRwindow _channel nil 0 0 320 240 WN_NORMAL "My first window !"; |
||
42 | _fooS if window == nil then |
||
43 | "Unable to create this window" |
||
44 | else |
||
45 | "The window has been created"; |
||
46 | 0;; |
||
47 | |||
48 | fun main ()= |
||
49 | _showconsole; |
||
50 | create; |
||
51 | // other things |
||
52 | 0;; |
||
53 | </pre> |