0023414: Remove deprecated classes Xw_PixMap and WNT_PixMap
[occt.git] / src / Xw / Xw_Window.cdl
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
5 --
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
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.
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,
52     PixMap             from Image,
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
333     ToPixMap ( me ; theImage : in out PixMap from Image )
334     returns Boolean
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
679     class Driver from Xw,
680     class IconBox from Xw
681
682 end Window ;