b311480e |
1 | -- Created on: 1991-11-18 |
2 | -- Created by: NW,JPB,CAL,GG |
3 | -- Copyright (c) 1991-1999 Matra Datavision |
4 | -- Copyright (c) 1999-2012 OPEN CASCADE SAS |
7fd59977 |
5 | -- |
b311480e |
6 | -- The content of this file is subject to the Open CASCADE Technology Public |
7 | -- License Version 6.5 (the "License"). You may not use the content of this file |
8 | -- except in compliance with the License. Please obtain a copy of the License |
9 | -- at http://www.opencascade.org and read it completely before using this file. |
10 | -- |
11 | -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its |
12 | -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France. |
13 | -- |
14 | -- The Original Code and all software distributed under the License is |
15 | -- distributed on an "AS IS" basis, without warranty of any kind, and the |
16 | -- Initial Developer hereby disclaims all such warranties, including without |
17 | -- limitation, any warranties of merchantability, fitness for a particular |
18 | -- purpose or non-infringement. Please see the License for the specific terms |
19 | -- and conditions governing the rights and limitations under the License. |
20 | |
7fd59977 |
21 | -- Modified : GG 28/01/00 G004 |
22 | -- Add gamma correction computation just before dumping an image. |
23 | -- GG 07/03/00 G004 Add MMSize() method |
24 | -- TCL 26/10/00 G002 SetBackground(aName: CString) method |
25 | -- SAV 24/11/01 SetBackground(Quantity_Color) |
26 | -- GG - RIC120302 Add NEW XParentWindow methods. |
7fd59977 |
27 | |
28 | class Window from Xw |
29 | |
30 | ---Version: |
31 | |
32 | ---Purpose: This class defines a X11 window |
33 | -- Warning: The position and size for the creation of the window |
34 | -- are defined in Device Screen Unit (DSU) |
35 | -- floating [0,1] space. |
36 | |
37 | ---References: |
38 | |
39 | inherits |
40 | |
41 | Window from Aspect |
42 | |
43 | uses |
44 | |
45 | AsciiString from TCollection, |
46 | Background from Aspect, |
47 | GradientBackground from Aspect, |
48 | TypeOfResize from Aspect, |
49 | Handle from Aspect, |
50 | FillMethod from Aspect, |
51 | GradientFillMethod from Aspect, |
692613e5 |
52 | PixMap from Image, |
7fd59977 |
53 | NameOfColor from Quantity, |
54 | Parameter from Quantity, |
55 | Ratio from Quantity, |
56 | Color from Quantity, |
57 | ColorMap from Xw, |
58 | TypeMap from Xw, |
59 | WidthMap from Xw, |
60 | FontMap from Xw, |
61 | MarkMap from Xw, |
62 | GraphicDevice from Xw, |
63 | WindowQuality from Xw, |
64 | TypeOfVisual from Xw |
65 | |
66 | raises |
67 | |
68 | WindowDefinitionError from Aspect, |
69 | WindowError from Aspect |
70 | |
71 | is |
72 | |
73 | Create ( Device : GraphicDevice from Xw ) |
74 | returns mutable Window from Xw |
75 | raises WindowDefinitionError from Aspect; |
76 | ---Level: Public |
77 | |
78 | Create ( Device : GraphicDevice from Xw ; |
79 | aPart1, aPart2 : Integer from Standard ; |
80 | aQuality : WindowQuality from Xw = Xw_WQ_SAMEQUALITY ; |
81 | BackColor : NameOfColor from Quantity = |
82 | Quantity_NOC_MATRAGRAY ) |
83 | returns mutable Window from Xw |
84 | ---Level: Public |
85 | ---Purpose: Creates a Window from an X Window defined by his ID |
86 | -- This Xid equals (aPart1 << 16) + aPart2. |
87 | -- A child of this Window is created when the WindowQuality |
88 | -- isn't the same than the parent Window |
89 | -- Trigger: Raises WindowDefinitionError if the connection failed |
90 | -- or if the Position out of the Screen Space |
91 | raises WindowDefinitionError from Aspect ; |
92 | |
93 | Create ( Device : GraphicDevice from Xw ; |
94 | aWindow : Handle from Aspect; |
95 | aQuality : WindowQuality from Xw = Xw_WQ_SAMEQUALITY ; |
96 | BackColor : NameOfColor from Quantity = |
97 | Quantity_NOC_MATRAGRAY ) |
98 | returns mutable Window from Xw |
99 | ---Level: Public |
100 | ---Purpose: Creates a Window from an X Window defined by his Xid |
101 | -- A child of this Window is created when the WindowQuality |
102 | -- isn't the same than the parent Window |
103 | -- Trigger: Raises WindowDefinitionError if the connection failed |
104 | -- or if the Position out of the Screen Space |
105 | raises WindowDefinitionError from Aspect ; |
106 | |
107 | Create ( Device : GraphicDevice from Xw ; |
108 | Title : CString from Standard ; |
109 | Xc : Parameter from Quantity = 0.5 ; |
110 | Yc : Parameter from Quantity = 0.5 ; |
111 | Width : Parameter from Quantity = 0.5 ; |
112 | Height : Parameter from Quantity = 0.5 ; |
113 | Quality : WindowQuality from Xw = Xw_WQ_DRAWINGQUALITY ; |
114 | BackColor : NameOfColor from Quantity = Quantity_NOC_MATRAGRAY ; |
115 | Parent : Handle from Aspect = 0 ) |
116 | returns mutable Window from Xw |
117 | ---Level: Public |
118 | ---Purpose: Creates a Window defined by his Center and his Size |
119 | -- in DSU from the Parent Window. |
120 | -- NOTE than if Parent is 0 the window is created from the |
121 | -- ROOT Window. |
122 | -- Connects it to the X server at the first call |
123 | -- depending of the GraphicDevice Visual and |
124 | -- Display parameters. |
125 | -- Quality defined a 2D or 3D Graphics oriented Window and |
126 | -- must be one of : |
127 | -- Xw_WQ_DRAWINGQUALITY for 2D Wireframe. |
128 | -- Xw_WQ_PICTUREQUALITY for Picture. |
129 | -- Xw_WQ_3DQUALITY for 3D Shading, HiddenLines, Wireframe. |
130 | -- |
131 | -- Creation of an Xw_Window automatically determines the |
132 | -- smaller dimension of the screen (usually the height) |
133 | -- and parametrises it as 1.0. |
134 | -- The smaller dimension of the window is limited to 1.0 |
135 | -- We can give a value greater than 1.0 to the larger |
136 | -- dimension. |
137 | -- No matter how large the values passed in argument, the |
138 | -- window is automatically limited to the maximum size of |
139 | -- the screen. |
140 | -- The ratio of width to height of a conventional screen is |
141 | -- of the order of 1.3. |
142 | -- |
143 | -- Trigger: Raises WindowDefinitionError if the connection failed |
144 | -- or if the Position out of the Screen Space |
145 | raises WindowDefinitionError from Aspect ; |
146 | |
147 | Create ( theDevice : GraphicDevice from Xw ; |
148 | theTitle : CString from Standard ; |
149 | thePxLeft : Integer from Standard ; |
150 | thePxTop : Integer from Standard ; |
151 | thePxWidth : Integer from Standard ; |
152 | thePxHeight : Integer from Standard ; |
153 | theQuality : WindowQuality from Xw = Xw_WQ_DRAWINGQUALITY ; |
154 | theBackColor : NameOfColor from Quantity = Quantity_NOC_MATRAGRAY ; |
155 | theParent : Handle from Aspect = 0 ) |
156 | returns mutable Window from Xw |
157 | ---Level: Public |
158 | ---Purpose: Creates a Window defined by his position and size |
159 | -- in pixels from the Parent Window. |
160 | -- Trigger: Raises WindowDefinitionError if the connection failed |
161 | -- or if the Position out of the Screen Space |
162 | raises WindowDefinitionError from Aspect ; |
163 | |
164 | --------------------------------------------------- |
165 | -- Category: Methods to modify the class definition |
166 | --------------------------------------------------- |
167 | |
168 | SetBackground ( me : mutable ; |
169 | Background : Background from Aspect ) is virtual; |
170 | ---Level: Public |
171 | ---Purpose: Modifies the window background. |
172 | -- Warning: the background color is ignored when the quality |
173 | -- of this window is TRANSPARENT. |
174 | ---Category: Methods to modify the class definition |
175 | |
176 | SetBackground ( me : mutable ; |
177 | BackColor : NameOfColor from Quantity ) is virtual; |
178 | ---Level: Public |
179 | ---Purpose: Modifies the window background from a Named Color. |
180 | -- Warning: the background color is ignored when the quality |
181 | -- of this window is TRANSPARENT. |
182 | ---Category: Methods to modify the class definition |
183 | |
184 | SetBackground ( me : mutable; color : Color from Quantity ) is virtual; |
185 | ---Level: Public |
186 | ---Purpose: Modifies the window background from a Named Color. |
187 | -- Warning: the background color is ignored when the quality |
188 | -- of this window is TRANSPARENT. |
189 | ---Category: Methods to modify the class definition |
190 | |
191 | SetBackground( me: mutable; |
192 | aPixmap: Handle from Aspect); |
193 | ---Level: Advanced |
194 | ---Purpose: Defines the window background directly from a bitmap. |
195 | -- Warning: the bitmap and window must have the same depth. |
196 | ---Category: Methods to modify the class definition |
197 | |
198 | SetBackground( me: mutable; |
199 | aName: CString from Standard; |
200 | aMethod : FillMethod from Aspect = Aspect_FM_CENTERED) |
201 | returns Boolean from Standard; |
202 | ---Level: Public |
203 | ---Purpose: Loads the window background from an image file <aName> |
204 | -- defined with a supported format XWD,GIF or BMP |
205 | -- and returns TRUE if the operation is successfull. |
206 | ---Category: Methods to modify the class definition |
207 | |
208 | SetBackground ( me : mutable ; |
209 | Background : GradientBackground from Aspect ) is virtual; |
210 | ---Level: Public |
211 | ---Purpose: Modifies the window gradient background. |
212 | -- Warning: the gradient background colours are ignored when the quality |
213 | -- of this window is TRANSPARENT. |
214 | ---Category: Methods to modify the class definition |
215 | |
216 | SetBackground( me : mutable; |
217 | aCol1 : Color from Quantity; |
218 | aCol2 : Color from Quantity; |
219 | aMethod : GradientFillMethod from Aspect = Aspect_GFM_HOR); |
220 | ---Level: Public |
221 | ---Purpose: Modifies the window gradient background. |
222 | -- Warning: the gradient background colours are ignored when the quality |
223 | -- of this window is TRANSPARENT. |
224 | ---Category: Methods to modify the class definition |
225 | |
226 | SetDoubleBuffer ( me : mutable ; |
227 | DBmode : Boolean from Standard ) |
228 | ---Level: Advanced |
229 | ---Purpose: Activates/Deactivates the Double Buffering capability |
230 | -- for this window. |
231 | -- Warning: Double Buffering is always DISABLE by default |
232 | -- If there is not enought ressources to activate the |
233 | -- double-buffering the DB mode flag can be set to FALSE. |
234 | ---Category: Methods to modify the class definition |
235 | is virtual; |
236 | |
237 | Flush ( me ) |
238 | ---Level: Advanced |
239 | ---Purpose: Flushs all graphics to the screen and Swap the Double |
240 | -- buffer if Enable |
241 | -- Category: Methods to modify the class definition |
242 | -- Trigger: Raises if Something is WRONG at Drawing Time. |
243 | raises WindowError from Aspect is virtual; |
244 | |
245 | Map ( me ) is virtual; |
246 | ---Level: Public |
247 | ---Purpose: Opens the window <me>. |
248 | ---Category: Methods to modify the class definition |
249 | |
250 | Unmap ( me ) is virtual; |
251 | ---Level: Public |
252 | ---Purpose: Closes the window <me>. |
253 | ---Category: Methods to modify the class definition |
254 | |
255 | DoResize ( me ) |
256 | returns TypeOfResize from Aspect |
257 | ---Level: Advanced |
258 | ---Purpose: Applies the resizing to the window <me>. |
259 | ---Category: Methods to modify the class definition |
260 | raises WindowError from Aspect is virtual; |
261 | |
262 | DoMapping ( me ) returns Boolean from Standard |
263 | raises WindowError from Aspect is virtual; |
264 | ---Level: Advanced |
265 | ---Purpose: Apply the mapping change to the window <me> |
266 | -- and returns TRUE if the window is mapped at screen. |
267 | ---Category: Methods to modify the class definition |
268 | |
269 | Destroy ( me : mutable ) |
270 | ---Level: Advanced |
271 | ---Purpose: Destroies the Window |
272 | -- C++: alias ~ |
273 | -- Category: Methods to modify the class definition |
274 | -- Trigger: Raises if Window is not defined properly |
275 | raises WindowError from Aspect is virtual; |
276 | |
277 | Clear ( me ) is virtual; |
278 | ---Level: Public |
279 | ---Purpose: Clears the Window in the Background color |
280 | ---Category: Methods to modify the class definition |
281 | |
282 | ClearArea ( me ; |
283 | Xc, Yc : Integer from Standard ; |
284 | Width, Height : Integer from Standard ) |
285 | ---Level: Public |
286 | ---Purpose: Clears the Window Area defined by his center and PIXEL size |
287 | -- in the Background color |
288 | -- Category: Methods to modify the class definition |
289 | -- Trigger: Raises if Window is not defined properly |
290 | raises WindowError from Aspect is virtual; |
291 | |
292 | Restore ( me ) |
293 | ---Level: Public |
294 | ---Purpose: Restores The Window from the BackingStored Window |
295 | -- See BackingStore () method. |
296 | ---Category: Methods to modify the class definition |
297 | raises WindowError from Aspect is virtual; |
298 | |
299 | RestoreArea ( me ; |
300 | Xc, Yc : Integer from Standard ; |
301 | Width, Height : Integer from Standard ) |
302 | ---Level: Public |
303 | ---Purpose: Restores The Window Area defined by his center |
304 | -- and PIXEL size from the BackingStored Window |
305 | -- See BackingStore () method. |
306 | ---Category: Methods to modify the class definition |
307 | raises WindowError from Aspect is virtual; |
308 | |
309 | Dump ( me ; aFilename : CString from Standard; |
310 | aGammaValue: Real from Standard = 1.0 ) returns Boolean |
311 | ---Level: Advanced |
312 | ---Purpose: Dumps the Window to an XWD,GIF or BMP file with |
313 | -- an optional gamma correction value according to the graphic system. |
314 | -- and returns TRUE if the dump occurs normaly. |
315 | -- Category: Methods to modify the class definition |
316 | -- Trigger: Raises if Window is not defined properly |
317 | raises WindowError from Aspect is virtual; |
318 | |
319 | DumpArea ( me ; aFilename : CString from Standard ; |
320 | Xc, Yc : Integer from Standard ; |
321 | Width, Height : Integer from Standard ; |
322 | aGammaValue: Real from Standard = 1.0 ) returns Boolean |
323 | ---Level: Advanced |
324 | ---Purpose: Dumps the Window Area defined by his center and PIXEL size |
325 | -- to an XWD,GIF or BMP file with |
326 | -- an optional gamma correction value according to the graphic system. |
327 | -- and returns TRUE if the dump occurs normaly. |
328 | -- Category: Methods to modify the class definition |
329 | -- Trigger: Raises if Window is not defined properly |
330 | -- or the area is out of the Window. |
331 | raises WindowError from Aspect is virtual; |
332 | |
692613e5 |
333 | ToPixMap ( me ; theImage : in out PixMap from Image ) |
334 | returns Boolean |
7fd59977 |
335 | ---Level : Public |
336 | ---Purpose : dump the full contents of the window to a pixmap. |
337 | is virtual; |
338 | |
339 | Load ( me ; aFilename : CString from Standard) returns Boolean |
340 | ---Level: Advanced |
341 | ---Purpose: Loads the XWD file to this Window. |
342 | -- Returns TRUE if the loading occurs normaly. |
343 | -- Warning: Note that the Window is enlarged automatically |
344 | -- when the image size is too large for this window. |
345 | -- Category: Methods to modify the class definition |
346 | -- Trigger: Raises if Window is not defined properly |
347 | raises WindowError from Aspect is virtual; |
348 | |
349 | LoadArea ( me ; aFilename : CString from Standard ; |
350 | Xc, Yc : Integer from Standard ; |
351 | Width, Height : Integer from Standard ) returns Boolean |
352 | ---Level: Advanced |
353 | ---Purpose: Loads the XWD file to Window Area defined by his center |
354 | -- and PIXEL size. |
355 | -- Returns TRUE if the loading occurs normaly. |
356 | -- Warning: Note that the Image is zoomed automatically |
357 | -- when the image size is too large for this window area. |
358 | -- Category: Methods to modify the class definition |
359 | -- Trigger: Raises if Window is not defined properly |
360 | -- or the area is out of the Window. |
361 | raises WindowError from Aspect is virtual; |
362 | |
363 | SetCursor ( me ; anId : Integer from Standard ; |
364 | aColor : NameOfColor from Quantity |
365 | = Quantity_NOC_YELLOW ) is virtual ; |
366 | ---Level: Advanced |
367 | ---Purpose: Changes the current window cursor by anId cursor |
368 | -- in the specified color. |
369 | -- NOTE than anId must be one of /usr/include/X11/cursorfont.h |
370 | -- or 0 for Deactivate the cursor |
371 | ---Category: Methods to modify the class definition |
372 | |
373 | ---------------------------- |
374 | -- Category: Inquire methods |
375 | ---------------------------- |
376 | |
377 | BackingStore ( me ) |
378 | returns Boolean from Standard is virtual; |
379 | ---Level: Advanced |
380 | ---Purpose: Returns the BackingStore capability for this Window. |
381 | -- If Answer is True Exposure can be recovered by |
382 | -- Restore RestoreArea methods. |
383 | -- If Answer is False, Application must Redraw the |
384 | -- exposed area. |
385 | ---Category: Inquire methods |
386 | |
387 | DoubleBuffer ( me ) |
388 | returns Boolean from Standard is virtual; |
389 | ---Level: Advanced |
390 | ---Purpose: Returns the DoubleBuffer state. |
391 | ---Category: Inquire methods |
392 | |
393 | IsMapped ( me ) |
394 | returns Boolean from Standard is virtual; |
395 | ---Level: Public |
396 | ---Purpose: Returns True if the window <me> is opened |
397 | -- and False if the window is closed. |
398 | ---Category: Inquire methods |
399 | |
400 | Ratio ( me ) |
401 | returns Ratio from Quantity is virtual; |
402 | ---Level: Public |
403 | ---Purpose: Returns The Window RATIO equal to the physical |
404 | -- WIDTH/HEIGHT dimensions |
405 | ---Category: Inquire methods |
406 | |
407 | Position ( me ; |
408 | X1, Y1, X2, Y2 : out Parameter from Quantity ) is virtual; |
409 | ---Level: Public |
410 | ---Purpose: Returns The Window POSITION in DSU |
411 | ---Category: Inquire methods |
412 | |
413 | Position ( me ; |
414 | X1, Y1, X2, Y2 : out Integer from Standard ) is virtual; |
415 | ---Level: Public |
416 | ---Purpose: Returns The Window POSITION in PIXEL |
417 | ---Category: Inquire methods |
418 | |
419 | Size ( me ; |
420 | Width, Height : out Parameter from Quantity ) is virtual; |
421 | ---Level: Public |
422 | ---Purpose: Returns The Window SIZE in DSU |
423 | ---Category: Inquire methods |
424 | |
425 | Size ( me ; |
426 | Width, Height : out Integer from Standard ) is virtual; |
427 | ---Level: Public |
428 | ---Purpose: Returns The Window SIZE in PIXEL |
429 | ---Category: Inquire methods |
430 | |
431 | MMSize ( me ; |
432 | Width, Height : out Real from Standard ) is virtual; |
433 | ---Level: Public |
434 | ---Purpose: Returns The Window SIZE in MM |
435 | ---Category: Inquire methods |
436 | |
437 | Convert ( me ; PV : Integer from Standard ) |
438 | returns Parameter from Quantity is virtual; |
439 | ---Level: Public |
440 | ---Purpose: Returns the DSU value depending of the PIXEL value. |
441 | ---Category: Inquire methods |
442 | |
443 | Convert ( me ; DV : Parameter from Quantity ) |
444 | returns Integer from Standard is virtual; |
445 | ---Level: Public |
446 | ---Purpose: Returns the PIXEL value depending of the DSU value. |
447 | ---Category: Inquire methods |
448 | |
449 | Convert ( me ; |
450 | PX, PY : Integer from Standard ; |
451 | DX, DY : out Parameter from Quantity ) is virtual; |
452 | ---Level: Public |
453 | ---Purpose: Returns the DSU position depending of the PIXEL position. |
454 | ---Category: Inquire methods |
455 | |
456 | Convert ( me ; |
457 | DX, DY : Parameter from Quantity ; |
458 | PX, PY : out Integer from Standard ) is virtual; |
459 | ---Level: Public |
460 | ---Purpose: Returns the PIXEL position depending of the DSU position. |
461 | ---Category: Inquire methods |
462 | |
463 | XWindow ( me ) |
464 | returns Handle from Aspect is static; |
465 | ---Level: Public |
466 | ---Purpose: Returns the X window ID of the created window <me>. |
467 | ---Category: Inquire methods |
468 | |
469 | XWindow ( me ; aPart1, aPart2 : out Integer from Standard ) is static; |
470 | ---Level: Public |
471 | ---Purpose: Returns the X window ID of the created window <me>. |
472 | -- This Xid equals (aPart1 << 16) + aPart2. |
473 | |
474 | XParentWindow ( me ) |
475 | returns Handle from Aspect is static; |
476 | ---Level: Public |
477 | ---Purpose: Returns the X window ID parent of the created window <me>. |
478 | ---Category: Inquire methods |
479 | |
480 | XParentWindow ( me ; aPart1, aPart2 : out Integer from Standard ) is static; |
481 | ---Level: Public |
482 | ---Purpose: Returns the X window ID parent of the created window <me>. |
483 | -- This Xid equals (aPart1 << 16) + aPart2. |
484 | |
485 | XPixmap ( me ) |
486 | returns Handle from Aspect is static; |
487 | ---Level: Internal |
488 | ---Purpose: Returns the X pixmap ID of the created window <me>. |
489 | -- If BackingStore () is permitted. |
490 | ---Category: Inquire methods |
491 | |
492 | PointerPosition ( me ; X, Y : out Integer from Standard ) |
493 | returns Boolean from Standard is virtual; |
494 | ---Level: Advanced |
495 | ---Purpose: Returns the Pointer position relatively to the Window <me> |
496 | -- and FALSE if the pointer is outside of the window |
497 | ---Category: Inquire methods |
498 | |
499 | ColorMap ( me ) |
500 | returns ColorMap from Xw is static; |
501 | ---Level: Public |
502 | ---Purpose: Returns the Colormap attached to this Window |
503 | |
504 | TypeMap ( me ) |
505 | returns TypeMap from Xw is static; |
506 | ---Level: Public |
507 | ---Purpose: Returns the Typemap attached to this Window |
508 | |
509 | WidthMap ( me ) |
510 | returns WidthMap from Xw is static; |
511 | ---Level: Public |
512 | ---Purpose: Returns the Widthmap attached to this Window |
513 | |
514 | FontMap ( me ) |
515 | returns FontMap from Xw is static; |
516 | ---Level: Public |
517 | ---Purpose: Returns the Fontmap attached to this Window |
518 | |
519 | MarkMap ( me ) |
520 | returns MarkMap from Xw is static; |
521 | ---Level: Public |
522 | ---Purpose: Returns the Markmap attached to this Window |
523 | |
524 | XColorMap ( me ) |
525 | returns Handle from Aspect |
526 | ---Level: Internal |
527 | ---Purpose: Returns the Colormap XId attached to this Window |
528 | -- depending of the HardWare and Visual class |
529 | -- Trigger: Raises if Window is not defined properly |
530 | raises WindowError from Aspect is static; |
531 | |
532 | XVisual ( me ) |
533 | returns Address from Standard |
534 | ---Level: Internal |
535 | ---Purpose: Returns the Visual address attached to this Window |
536 | -- depending of the HardWare |
537 | -- Trigger: Raises if Window is not defined properly |
538 | raises WindowError from Aspect is static; |
539 | |
540 | VisualClass ( me ) |
541 | returns TypeOfVisual from Xw is static; |
542 | ---Level: Public |
543 | ---Purpose: Returns the X window Visual class of the created window <me> |
544 | ---Category: Inquire methods |
545 | |
546 | VisualDepth ( me ) |
547 | returns Integer from Standard is static; |
548 | ---Level: Public |
549 | ---Purpose: Returns the X window Visual depth of the created window <me> |
550 | ---Category: Inquire methods |
551 | |
552 | VisualID ( me ) |
553 | returns Integer from Standard is static; |
554 | ---Level: Public |
555 | ---Purpose: Returns the Visual ID of the Window |
556 | ---Category: Inquire methods |
557 | |
558 | Quality ( me ) |
559 | returns WindowQuality from Xw is static; |
560 | ---Level: Public |
561 | ---Purpose: Returns the Quality of this window |
562 | ---Category: Inquire methods |
563 | |
564 | PixelOfColor ( me ;aColor : NameOfColor from Quantity; |
565 | aPixel : out Integer from Standard ) |
566 | returns Boolean from Standard is static; |
567 | ---Level: Public |
568 | ---Purpose: Returns FALSE when the returned pixel value <aPixel> |
569 | -- of an RGB color <aColor> is exact or TRUE |
570 | -- when the pixel value is approximated. |
571 | |
572 | PixelOfColor ( me ;aColor : Color from Quantity; |
573 | aPixel : out Integer from Standard ) |
574 | returns Boolean from Standard is static; |
575 | ---Level: Advanced |
576 | ---Purpose: Returns FALSE when the returned pixel value <aPixel> |
577 | -- of an RGB color <aColor> is exact or TRUE |
578 | -- when the pixel value is approximated. |
579 | -- Warning: |
580 | -- make becarefull about the number of different pixel |
581 | -- of colors reserved in the colormap in PseudoColor mode !!! |
582 | |
583 | BackgroundPixel ( me ; aPixel : out Integer from Standard ) |
584 | returns Boolean from Standard is static; |
585 | ---Level: Public |
586 | ---Purpose: Returns FALSE when the returned background pixel |
587 | -- value <aPixel> is not defined |
588 | |
589 | ExtendedWindow ( me ) |
590 | returns Address from Standard |
591 | is static protected ; |
592 | ---Level: Internal |
593 | ---Purpose: Returns the ExtendedWindow address of the created window. |
594 | ---Category: Inquire methods |
595 | |
596 | ExtendedColorMap ( me ) |
597 | returns Address from Standard |
598 | is static protected ; |
599 | ---Level: Internal |
600 | ---Purpose: Returns the ExtendedColorMap address of the created window. |
601 | ---Category: Inquire methods |
602 | |
603 | ExtendedTypeMap ( me ) |
604 | returns Address from Standard |
605 | is static protected ; |
606 | ---Level: Internal |
607 | ---Purpose: Returns the ExtendedTypeMap address of the created window. |
608 | ---Category: Inquire methods |
609 | |
610 | ExtendedWidthMap ( me ) |
611 | returns Address from Standard |
612 | is static protected ; |
613 | ---Level: Internal |
614 | ---Purpose: Returns the ExtendedWidthMap address of the created window. |
615 | ---Category: Inquire methods |
616 | |
617 | ExtendedFontMap ( me ) |
618 | returns Address from Standard |
619 | is static protected ; |
620 | ---Level: Internal |
621 | ---Purpose: Returns the ExtendedFontMap address of the created window. |
622 | ---Category: Inquire methods |
623 | |
624 | ExtendedMarkMap ( me ) |
625 | returns Address from Standard |
626 | is static protected ; |
627 | ---Level: Internal |
628 | ---Purpose: Returns the ExtendedMarkMap address of the created window. |
629 | ---Category: Inquire methods |
630 | |
631 | SetWindow ( me: mutable ; aWindow : Handle from Aspect ; |
632 | aQuality: WindowQuality from Xw ; |
633 | BackColor : NameOfColor from Quantity ) |
634 | ---Level: Internal |
635 | ---Trigger: Raises if Window is not defined properly |
636 | raises WindowError from Aspect |
637 | is static private ; |
638 | |
639 | SetWindow ( me: mutable ; Title : CString from Standard ; |
640 | Xc, Yc, Width, Height: Parameter from Quantity ; |
641 | Quality : WindowQuality from Xw ; |
642 | BackColor : NameOfColor from Quantity ; |
643 | Parent : Handle from Aspect ) |
644 | ---Level: Internal |
645 | ---Trigger: Raises if Window is not defined properly |
646 | raises WindowError from Aspect |
647 | is static private ; |
648 | |
649 | PrintError(myclass) is protected; |
650 | ---Purpose: Print last error or raise depending of the error gravity. |
651 | |
652 | Init( me: mutable ) is private; |
653 | ---Purpose: Initialise the fileds of class |
654 | |
655 | fields |
656 | |
657 | MyQuality : WindowQuality from Xw is protected ; |
658 | MyColorMap : ColorMap from Xw is protected ; |
659 | MyTypeMap : TypeMap from Xw is protected ; |
660 | MyWidthMap : WidthMap from Xw is protected ; |
661 | MyFontMap : FontMap from Xw is protected ; |
662 | MyMarkMap : MarkMap from Xw is protected ; |
663 | MyXWindow : Handle from Aspect is protected ; |
664 | MyXParentWindow : Handle from Aspect is protected ; |
665 | MyXPixmap : Handle from Aspect is protected ; |
666 | MyVisualClass : TypeOfVisual from Xw is protected ; |
667 | MyDepth : Integer from Standard is protected ; |
668 | MyBackgroundIndex : Integer from Standard is protected ; |
669 | MyExtendedDisplay : Address from Standard is protected ; |
670 | MyExtendedWindow : Address from Standard is protected ; |
671 | MyExtendedColorMap : Address from Standard is protected ; |
672 | MyExtendedTypeMap : Address from Standard is protected ; |
673 | MyExtendedWidthMap : Address from Standard is protected ; |
674 | MyExtendedFontMap : Address from Standard is protected ; |
675 | MyExtendedMarkMap : Address from Standard is protected ; |
676 | |
677 | friends |
678 | |
1bc6c5ef |
679 | class IconBox from Xw |
7fd59977 |
680 | |
681 | end Window ; |