"====================================================================== | | Delay Method Definitions | ======================================================================" "====================================================================== | | Copyright (C) 1990, 1991 Free Software Foundation, Inc. | Written by Steve Byrne. | | This file is part of GNU Smalltalk. | | GNU Smalltalk is free software; you can redistribute it and/or modify it | under the terms of the GNU General Public License as published by the Free | Software Foundation; either version 1, or (at your option) any later version. | | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS | FOR A PARTICULAR PURPOSE. See the GNU General Public License for more | details. | | You should have received a copy of the GNU General Public License along with | GNU Smalltalk; see the file COPYING. If not, write to the Free Software | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | ======================================================================" " | Change Log | ============================================================================ | Author Date Change | sbyrne 25 Apr 89 created. | " Object subclass: #Delay instanceVariableNames: '' "marked as ### wrong in the code" classVariableNames: '' poolDictionaries: '' category: nil. Delay comment: nil ! !Delay class methodsFor: 'instance creation'! forMilliseconds: millisecondCount self notYetImplemented ! forSeconds: secondCount self notYetImplemented ! untilMilliseconds: millisecondCount self notYetImplemented !! !Delay class methodsFor: 'general inquiries'! millisecondClockValue self notYetImplemented !! !Delay methodsFor: 'accessing'! resumptionTime self notYetImplemented !! !Delay methodsFor: 'process delay'! wait self notYetImplemented !!