home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1998 October
/
PCWorld_1998-10_cd.bin
/
software
/
prehled
/
komix
/
DATA.Z
/
yesnodialo.tcl
< prev
next >
Wrap
Text File
|
1997-05-21
|
2KB
|
61 lines
#---------------------------------------------------------------------------
#
# (c) Cayenne Software Inc. 1997
#
# File: @(#)yesnodialo.tcl /main/titanic/3
# Author: <generated>
# Description:
#---------------------------------------------------------------------------
# SccsId = @(#)yesnodialo.tcl /main/titanic/3 21 May 1997 Copyright 1997 Cayenne Software Inc.
# Start user added include file section
# End user added include file section
Class YesNoDialog : {TemplateDialog} {
constructor
method destructor
method createDialog
method popUp
attribute message
}
constructor YesNoDialog {class this name} {
set this [TemplateDialog::constructor $class $this $name]
# Start constructor user section
$this createDialog
# End constructor user section
return $this
}
method YesNoDialog::destructor {this} {
# Start destructor user section
# End destructor user section
}
method YesNoDialog::createDialog {this} {
interface DlgRow $this.row {
Label message {
}
}
PushButton new $this.yes \
-label "Yes" \
-activated "$this popDown; $this yesPressed"
PushButton new $this.no \
-label "No" \
-activated "$this popDown; $this noPressed"
$this delHelpButton
$this delOkButton
}
method YesNoDialog::popUp {this} {
$this.row.message text [$this message]
$this TemplateDialog::popUp
}
# Do not delete this line -- regeneration end marker