modules/x11/base/x11groups.st

   1 Package [
   2   X11
   3 ]
   4
   5
   6 X11BaseWindow subclass: X11RestrictedGroup [
   7   | widgetlist |
   8
   9   init [
  10     super init.
  11     widgetlist := List new.
  12   ]
  13
  14   includes: aWC [
  15     ^widgetlist includes: aWC.
  16   ]
  17
  18   findWidgetById: aWid [
  19     widgetlist do: [:w | (X11Singleton sameWids: aWid and: w wid) ifTrue: [ ^w ]].
  20     ^nil
  21   ]
  22
  23   passEvent: aWid event: evt [
  24     "returns true if event handler found"
  25     | w |
  26     (super passEvent: aWid event: evt) ifTrue: [ ^true ].
  27     (w := self findWidgetById: aWid) ifNotNil: [ w onEvent: evt. ^true ].
  28     "widgetlist ifNotNil: [ widgetlist do: [:w | (w passEvent: aWid event: evt) ifTrue: [ ^true ]]]."
  29     ^false
  30   ]
  31
  32   markAsDead [
  33     super markAsDead.
  34     widgetlist do: [:w | w markAsDead ].
  35     widgetlist removeAll.
  36   ]
  37 ]
  38
  39
  40 X11RestrictedGroup subclass: X11Group [
  41   isGroup [
  42     true
  43   ]
  44
  45   add: aWC [
  46     widgetlist << aWC.
  47   ]
  48
  49   remove: aWC [
  50     widgetlist remove: aWC ifAbsent: [ nil ]
  51   ]
  52
  53   removeAll [
  54     widgetlist removeAll
  55   ]
  56 ]