2
# This file is part of GNU Enterprise.
4
# GNU Enterprise is free software; you can redistribute it
5
# and/or modify it under the terms of the GNU General Public
6
# License as published by the Free Software Foundation; either
7
# version 2, or (at your option) any later version.
9
# GNU Enterprise is distributed in the hope that it will be
10
# useful, but WITHOUT ANY WARRANTY; without even the implied
11
# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
12
# PURPOSE. See the GNU General Public License for more details.
14
# You should have received a copy of the GNU General Public
15
# License along with program; see the file COPYING. If not,
16
# write to the Free Software Foundation, Inc., 59 Temple Place
17
# - Suite 330, Boston, MA 02111-1307, USA.
19
# Copyright 2002-2005 Free Software Foundation
36
from constants import *
38
def _paintBorder(dialog, Y, X, H, W, integrateUpper = 0,
39
caption=None, color=0, captionColor=0):
40
""" draw a border with curses_graphics
42
Screen = dialog.SCREEN
45
dialog.AutoRefresh = 0
55
Screen.PrintAt( Y,X, chr(upperLC) + (W-2) * chr(tiHLINE) + chr(upperRC), color)
58
Screen.PrintAt (Y,X + 2, " %s " % caption, captionColor or color)
64
for i in range(Y+1,Y+H-1):
65
Screen.PrintAt(i,X, chr(tiVLINE) + (W-2)*' ' + chr(tiVLINE), color)
68
Screen.PrintAt( Y+H-1, X, chr(tiLLC) + (W-2) * chr(tiHLINE) + chr(tiLRC), color)
71
if dialog.HasProperty("TITLETEXT"):
72
Screen.PrintAt( Y, X + 2, ' ' + dialog.TITLETEXT+ ' ')
74
dialog.AutoRefresh = 1