home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1998 October
/
PCWorld_1998-10_cd.bin
/
software
/
prehled
/
komix
/
DATA.Z
/
corpgvdbob.tcl
< prev
next >
Wrap
Text File
|
1997-10-16
|
3KB
|
120 lines
#---------------------------------------------------------------------------
#
# (c) Cayenne Software Inc. 1997
#
# File: @(#)corpgvdbob.tcl /main/titanic/7
# Author: <generated>
# Description:
#---------------------------------------------------------------------------
# SccsId = @(#)corpgvdbob.tcl /main/titanic/7 16 Oct 1997 Copyright 1997 Cayenne Software Inc.
# Start user added include file section
# End user added include file section
require "browsdbobj.tcl"
Class CorpGVDbObj : {BrowsDbObj CorporateGroupVersion} {
method destructor
constructor
method canBeDragged
method createTime2String
method customLevelVersion
method makeUpToDate
method name
method removeVersion
method versionInLabel
method versionName
}
method CorpGVDbObj::destructor {this} {
# Start destructor user section
# End destructor user section
$this BrowsDbObj::destructor
}
constructor CorpGVDbObj {class this name} {
set this [CorporateGroupVersion::constructor $class $this $name]
set this [BrowsDbObj::constructor $class $this $name]
return $this
}
selfPromoter CorporateGroupVersion {this} {
CorpGVDbObj promote $this
}
proc CorpGVDbObj::associations {} {
return {savedGroupVersion}
}
method CorpGVDbObj::canBeDragged {this} {
return 1
}
proc CorpGVDbObj::childTypes {assoc} {
if {[lsearch -exact "[CorpGVDbObj::associations]" "$assoc"] == -1} {
return ""
}
return "[BrowserProcs::childTypes $assoc]"
}
proc CorpGVDbObj::controlledLists {} {
return ""
}
method CorpGVDbObj::createTime2String {this} {
return [BrowserProcs::displayDate [$this createTime]]
}
method CorpGVDbObj::customLevelVersion {this} {
return [$this corporate]
}
proc CorpGVDbObj::infoProperties {} {
return [concat \
[BrowserProcs::infoProperties] \
{Version Comments Created "Controlled Actions"} \
]
}
method CorpGVDbObj::makeUpToDate {this} {
# dummy call to server
$this project
}
method CorpGVDbObj::name {this} {
return "[[$this corporateGroup] name]"
}
method CorpGVDbObj::removeVersion {this} {
set box $wmttoolObj.removeVersionWarning
YesNoWarningDialog new $box \
-title "Confirm Version Delete" \
-message [BrowserProcs::removeMessage] \
-helpPressed {.main helpOnName removeVersionWarning} \
-noPressed {%this delete} \
-yesPressed {
set script ""
foreach obj [$wmttoolObj selectedObjSet] {
if {"$script" != ""} {
append script " ;"
}
append script " [$obj corporateGroup] removeVersion $obj"
}
$wmttoolObj startCommand tcl "$script" "" "" {1 0} 1
%this delete
}
$box delCancelButton
$box popUp
}
method CorpGVDbObj::versionInLabel {this} {
return 1
}
method CorpGVDbObj::versionName {this} {
return [$this versionNumber]
}
# Do not delete this line -- regeneration end marker