[comp.lang.smalltalk] ConcreteTopPane for ST V

MUHRTH@tubvm.cs.tu-berlin.de (Thomas Muhr) (08/01/90)

The following will sureley be our shortest contribution
concerning Smalltalk/V postings into this group.
It allows windows to stay on the screen, until
(and only until) you close it explictely through
the close-icon or the topPane menu.
Who is going to make the bell ring, when mousekey is
pressed outside the window?

"****************************
 *   31 Jul 1990  12:30:56
 *
 *   Project: ConcreteTopPane
 *

If you do not use Max Ott's (marvellous) Category and ProjectBrowser you should
install the next method first: "!

!Behavior methods!

methodsInCategory: aCategory
        "Answer an instance of ClassReader
         initialized for the receiver.
!!! max

    ^ClassReader forClass: self !!


TopPane subclass: #ConcreteTopPane
  instanceVariableNames: ''
  classVariableNames: ''
  poolDictionaries: '' !

!ConcreteTopPane methodsInCategory: 'etc'!

hasCursor

  "Autor: Th. Muhr, Datum: Feb 18, 1990
   Kommentar:
        TopPane can not (accidently) be deactivated by clicking outside the
window.
        Our preferred method for displaying information (help-windows, etc.)"
    super hasCursor.
    ^true! !

Thomas Muhr, Technical University of Berlin, BITNET: muhrth@db0tui11
   Project ATLAS - Computer Based Tools for Qualitative Research
         "Computers, like every technology, are a vehicle
      for the transformation of tradition." (WINOGRAD/FLORES)