# CheckOutActive - Check the active window out for modification
#
# Usage: Called by a user­defined menu item
#
# CheckOutActive uses the ProjectInfo command to determine the
# parent project for the file open as the Active window. Once this
# project has been determined, the file open as the Active window
# can be properly checked out.
#
# © Apple Computer, Inc. 1988
# All rights reserved.

End

#	Request a comment before we check the file out. It is still possible
#	that the checkout will fail because the lastest revision on the trunk
#	is already checked out for modification by someone else.

(Set comment "`Request -d "{Task}" "What changes will you make?" || Set error {Status}`")
If {error} == 0
Evaluate "{®3}" =~ /(,([0-9.]+[a-z]*)*)®4[0-9.]+/	 # {®4} contains the branch
If "{comment}" ‚ ""
Checkout -t "{comment}" -c -m -project "{®2}" "{Active}{®4}"
Else
Checkout -c -m -project "{®2}" "{Active}{®4}"
End
If {Status} ‚ 0