Infobox in column

# -*- coding: utf-8  -*-

# ****************************************************************************
#  This program is free software; you can redistribute it and/or modify 
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software
#  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# 
# ****************************************************************************


"""
(C) 2005 by Thomas R. Koll, <tomk32@tomk32.de>, http://verlag.tomk32.de

A simple script for exact placment of a textbox (infobox)
over the current textbox, asking the user for the width
of the infobox and in which column to place it.

USAGE
Select a textframe, start the script and have phun
Default name for the infobox is 'infobox' + name_of_selected_frame

TODO
* ask for height
* ask for name
* ask for content?

"""

from scribus import *
import re, string

if haveDoc():    
    
    unit = getUnit()
    setUnit(UNIT_MILLIMETERS)
    
    try:
        textbox = getSelectedObject()
        left, top = getPosition(textbox)
        o_width, o_height = getSize(textbox)
    except:
        top = 8
        bottom = 11
        if (currentPage() % 2) == 1:
            left = 20
            right = 10
        else:
            left = 10
            right = 20
            width = width - left - right

    columns_width = 0
    column_pos = 1
    o_cols = int(getColumns(textbox))
    o_colwidth = (o_width - ((o_cols - 1) * getColumnGap(textbox))) / o_cols
    if (o_cols > 1):
        while (columns_width > o_cols or columns_width < 1):
            columns_width = valueDialog('Width',
                                            'How many columns width shall the '+
                                            'box be (max ' + str(o_cols) + ')?')
            columns_width = int(columns_width)
        if (columns_width < o_cols):
            max = o_cols - columns_width
            while (column_pos <= max and column_pos <= 1):
                column_pos = valueDialog('Placement',
                                         'In which column do you want '
                                         'to place the box (1 to ' +
                                         str(o_cols) + ')?')
            column_pos = int(column_pos) - 1 
    new_width = columns_width * o_colwidth + (columns_width-1) * getColumnGap(textbox)
    new_left = left + column_pos * (columns_width * o_colwidth
                                    + ((column_pos - 1) * getColumnGap(textbox)))
    new_textbox = createText(new_left, top, new_width, o_height,
                             "infobox " + textbox)
        
    setColumnGap(5, new_textbox)
    setColumns(1, new_textbox)
    setUnit(unit)

else:
	MessageBox(TITLE, "No document open", ICON_WARNING, BUTTON_OK)