Class: TransparentBox

• Inheritance
• Description
• Instance protocol
  • events
  • initialization
  • queries
  • shape computation
• Examples

Inheritance:

   Object
   |
   +--GraphicsMedium
      |
      +--DisplaySurface
         |
         +--SimpleView
            |
            +--View
               |
               +--TransparentBox

Package:

stx:libview2

Category:

Views-Basic

Version:

rev: 1.11 date: 2023/07/06 14:36:58

user: cg

file: TransparentBox.st directory: libview2

module: stx stc-classLibrary: libview2

Description:

sorry, but currently this works only on X-displays.
i.e. on Windows, a non-transparent regular view is shown

copyright
COPYRIGHT (c) 2004 by eXept Software AG
             All Rights Reserved

This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice.   This software may not
be provided or otherwise made available to, or used by, any
other person.  No title to or ownership of the software is
hereby transferred.

Instance protocol:

 sizeChanged: how from: oldExtentOrNil

my view has changed the size (not the contents)

 realize

(comment from inherited method)
realize - make visible;
realizing is done very late (after layout is fixed) to avoid
visible rearranging of windows on the screen

 isTransparentBox

 specClass

returns my spec class (for UI editor)

 windowStyle

 addSubView: aView

(comment from inherited method)
add a view to the collection of subviews

 computeShape

self viewShape:shapeForm.

Examples:

| tv b1 b2 |

b1 := Button label:'close'.
b1 action:[ tv close ].
b1 origin:10@10.

b2 := Button label:'hello'.
b2 origin:100@100.

tv := self new.
tv extent:200@200.

tv addSubView:b1.
tv addSubView:b2.
tv open