From e6afe6a46840dde13b1f9d7847a289fd18be723a Mon Sep 17 00:00:00 2001
From: Guido van Rossum <guido@python.org>
Date: Fri, 16 Aug 1991 13:02:04 +0000
Subject: [PATCH] Initial revision

---
 Lib/lib-stdwin/BoxParent.py | 41 +++++++++++++++++++++++++++++++++++++
 Lib/stdwin/BoxParent.py     | 41 +++++++++++++++++++++++++++++++++++++
 2 files changed, 82 insertions(+)
 create mode 100644 Lib/lib-stdwin/BoxParent.py
 create mode 100755 Lib/stdwin/BoxParent.py

diff --git a/Lib/lib-stdwin/BoxParent.py b/Lib/lib-stdwin/BoxParent.py
new file mode 100644
index 00000000000..7a0723aa747
--- /dev/null
+++ b/Lib/lib-stdwin/BoxParent.py
@@ -0,0 +1,41 @@
+from TransParent import TransParent
+
+class BoxParent() = TransParent():
+	#
+	def create(self, (parent, (dh, dv))):
+		self = TransParent.create(self, parent)
+		self.dh = dh
+		self.dv = dv
+		return self
+	#
+	def getminsize(self, (m, (width, height))):
+		width = max(0, width - 2*self.dh)
+		height = max(0, height - 2*self.dv)
+		width, height = self.child.getminsize(m, (width, height))
+		return width + 2*self.dh, height + 2*self.dv
+	#
+	def setbounds(self, bounds):
+		(left, top), (right, bottom) = bounds
+		self.bounds = bounds
+		left = min(right, left + self.dh)
+		top = min(bottom, top + self.dv)
+		right = max(left, right - self.dh)
+		bottom = max(top, bottom - self.dv)
+		self.innerbounds = (left, top), (right, bottom)
+		self.child.setbounds(self.innerbounds)
+	#
+	def getbounds(self):
+		return self.bounds
+	#
+	def draw(self, args):
+		d, area = args
+		(left, top), (right, bottom) = self.bounds
+		left = left + 1
+		top = top + 1
+		right = right - 1
+		bottom = bottom - 1
+		d.box((left, top), (right, bottom))
+		TransParent.draw(self, args) # XXX clip to innerbounds?
+	#
+	# XXX should scroll clip to innerbounds???
+	# XXX currently the only user restricts itself to child's bounds
diff --git a/Lib/stdwin/BoxParent.py b/Lib/stdwin/BoxParent.py
new file mode 100755
index 00000000000..7a0723aa747
--- /dev/null
+++ b/Lib/stdwin/BoxParent.py
@@ -0,0 +1,41 @@
+from TransParent import TransParent
+
+class BoxParent() = TransParent():
+	#
+	def create(self, (parent, (dh, dv))):
+		self = TransParent.create(self, parent)
+		self.dh = dh
+		self.dv = dv
+		return self
+	#
+	def getminsize(self, (m, (width, height))):
+		width = max(0, width - 2*self.dh)
+		height = max(0, height - 2*self.dv)
+		width, height = self.child.getminsize(m, (width, height))
+		return width + 2*self.dh, height + 2*self.dv
+	#
+	def setbounds(self, bounds):
+		(left, top), (right, bottom) = bounds
+		self.bounds = bounds
+		left = min(right, left + self.dh)
+		top = min(bottom, top + self.dv)
+		right = max(left, right - self.dh)
+		bottom = max(top, bottom - self.dv)
+		self.innerbounds = (left, top), (right, bottom)
+		self.child.setbounds(self.innerbounds)
+	#
+	def getbounds(self):
+		return self.bounds
+	#
+	def draw(self, args):
+		d, area = args
+		(left, top), (right, bottom) = self.bounds
+		left = left + 1
+		top = top + 1
+		right = right - 1
+		bottom = bottom - 1
+		d.box((left, top), (right, bottom))
+		TransParent.draw(self, args) # XXX clip to innerbounds?
+	#
+	# XXX should scroll clip to innerbounds???
+	# XXX currently the only user restricts itself to child's bounds