Class: ScreenLock

• Inheritance
• Description
• Class protocol
  • instance creation
• Instance protocol
  • accessing
  • accessing-channels
  • change & update
  • events
  • lock interface
  • private
  • queries
• Examples

Inheritance:

   Object
   |
   +--EventListener
      |
      +--ScreenLock

Package:

stx:libview2

Category:

Interface-Support

Version:

rev: 1.10 date: 2021/01/20 14:37:07

user: cg

file: ScreenLock.st directory: libview2

module: stx stc-classLibrary: libview2

Description:

documentation to be added.



[instance variables:]

[class variables:]

copyright
COPYRIGHT (c) 2000 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.

Class protocol:

 forDevice: aWorkstation

Instance protocol:

 lockAfterSeconds

return the value of the instance variable 'lockAfterSeconds' (automatically generated)

 lockAfterSeconds: something

set the value of the instance variable 'lockAfterSeconds' (automatically generated)

 processor

return the value of the instance variable 'processor' (automatically generated)

 processor: something

set the value of the instance variable 'processor' (automatically generated)

 workstation

return the value of the instance variable 'workstation' (automatically generated)

 workstation: something

set the value of the instance variable 'workstation' (automatically generated)

 lockChannel

 lockChannel: something

 lockChannelOut

 lockChannelOut: something

set the value of the instance variable 'lockChannelOut' (automatically generated)

 update: aspect with: param from: anObject

lockChannel is a value holder

 buttonMotion: state x: x y: y view: aView

(comment from inherited method)
not handled here - should be redefined in a concrete subclass

 buttonMultiPress: button x: x y: y view: aView

(comment from inherited method)
not handled here - should be redefined in a concrete subclass

 buttonPress: button x: x y: y view: aView

(comment from inherited method)
not handled here - should be redefined in a concrete subclass

 buttonRelease: button x: x y: y view: aView

(comment from inherited method)
not handled here - should be redefined in a concrete subclass

 keyPress: key x: x y: y view: aView

(comment from inherited method)
not handled here - should be redefined in a concrete subclass

 keyRelease: key x: x y: y view: aView

(comment from inherited method)
not handled here - should be redefined in a concrete subclass

 mouseWheelMotion: state x: x y: y amount: amount deltaTime: dTime view: aView

(comment from inherited method)
not handled here - can be redefined in a concrete subclass

 checkTime

 lock

trigger locking of screen

 unlisten

do not listen for events any longer.
This must be called when a screen lock is detached from a
screen.

 unlock

trigger unlocking of screen

 gotEventForView: v

got an event.
Reset the inactive timer.
If locked, eat all user events (for security)

 initializeForDevice: aWorkstation

 lockScreen

lock the screen

 unlockScreen

don't try to restore views that have been closed while
being invisible

 isLocked

Examples:

    |screenLock|

    screenLock := ScreenLock forDevice:Screen current.
    screenLock lock.
    Delay waitForSeconds:3.
    screenLock unlock.
    screenLock unlisten.

    |screenLock|

    screenLock := ScreenLock forDevice:Screen current.
    Delay waitForSeconds:1.
    screenLock checkTime.
    Delay waitForSeconds:12.
    screenLock checkTime.
    Delay waitForSeconds:3.
    screenLock unlock.
    screenLock unlisten.

    |screenLock channel running|

    screenLock := ScreenLock forDevice:Screen current.
    screenLock lockAfterSeconds:4.
    [
        channel := false asValue.
        channel onChangeEvaluate:[
            channel value ifTrue:[
                self information:'Application is locked\\Hit ok to unlock' withCRs.
                channel value:false.
            ].
        ].
        screenLock lockChannel:channel.

        [
            Delay waitForSeconds:2.
            screenLock checkTime.
        ] loop.
    ] valueNowOrOnUnwindDo:[
        screenLock unlisten.
    ].