-- New Object Layer...
-- 10 Nov 96, vs

-- Dieses Skript verschiebt alle Objekte eines bestimmten Typs 
-- bzw. verschiedener Typen auf eine Ebene, die neu erstellt wird.
-- Ist "Gruppen einbeziehen" markiert, werden alle Gruppen, die
-- Elemente der angegebenen Typen enthalten, verschoben.
-- Ist "Rahmen einbeziehen" markiert, werden alle Rahmen verschoben, 
-- die Elemente des angegebenen Typs beinhalten.

// localisation
"Object type layer" = "Objekttypebene"
"Create" = "Erstellen"
"Images" = "Bilder"
"Cancel" = "Abbrechen"
"EPS" = "EPS"
"Text" = "Text"
"PM Graphic" = "PM-Grafik"
"Include groups" = "Gruppen einbeziehen"
"Include frames" = "Rahmen einbeziehen"
"New layer" = "Neue Ebene"
// end localisation

getplatform >> platform
if platform=MACINTOSH
dialogbegin -175,-125,175,155,"Move objects to new layer"
pushbutton 228,28,317,60,"Create"
pushbutton 225,75,320,110,"Cancel"
checkbox 15,12,180,32,"EPS",1
checkbox 15,35,180,55,"Other images"
checkbox 15,58,175,78,"Text"
checkbox 15,81,175,101,"PM Graphic"
static 12,235,125,255,"Layer Name: "
edit 130,235,330,255,"New layer"
checkbox 15,115,185,135,"Include groups"
checkbox 15,138,185,158,"Include frames",1
radiobutton 15,170,180,190,"This page/spread"
radiobutton  15,195,180,215,"All pages",1
rect 8,8,190,105,""
rect 8,110,190,160,""
rect 8,165,190,220,""
else // if WINDOWS
dialogbegin -75,-50,121,62,"Objekte auf neue Ebene verschieben"
pushbutton 100,10,145,25,"Erstellen"
pushbutton 100,30,145,45,"Abbrechen"
checkbox 6,5,75,15,"EPS",1
checkbox 6,20,75,30,"Andere Bilder"
checkbox 6,35,75,45,"Text"
checkbox 6,50,75,60,"PM-Grafik"
static 5,65,55,75,"Ebenenname: "
edit 60,65,140,75,"Neue Ebene"
checkbox 6,80,90,90,"Gruppen einbeziehen"
checkbox 6,95,90,105,"Rahmen einbeziehen",1
radiobutton 99,80,190,90,"Diese Seite/Doppelseite"
radiobutton 99,95,175,105,"Alle Seiten",1
rect 3,3,80,62,""
rect 3,78,90,108,""
rect 96,78,191,108,""
endif

dialogend >> rc
set rc >> buttonHit,..,...,eps,img,txt,gr,...,NewLayer,grp,frm,pg,pub,...
if (buttonHit = "Abbrechen") + empty(buttonHit)
        return
endif
try newlayer NewLayer,1,0,-2,0,0,0
getlasterror >> err
if err
	message "Ebene "+NewLayer+" existiert bereits."
	return
endif
if pg
	gosub doPage
	return
endif
getpageoptions >> pageoptions
pageoptions pageoptions(1),0
getpagenumber >> PgN
getpagenumbers >> first,nPages,...
loop p = first,nPages
        page p
        gosub doPage
endloop
getmasterpagelist >> M,masterpagelist
loop m = 1,M
		set masterpagelist >>...,masterpagename,masterpagelist
		page -4,masterpagename
		gosub doPage
		getmasterpageinfo masterpagename >> b,...
		if b
			page -3,masterpagename
			gosub doPage
		endif
endloop
// cleanup
page PgN
pageoptions pageoptions
return

sub doAssign
       getselectidlist >> ...,...,...,grID,...
       if not(grID)
               assignlayer "",NewLayer
       elseif gr
               selectid grID
               assignlayer "",NewLayer
       endif
endsub

sub doPage

// find out how many objects on a page w/out using 'getselectlist'
loop Z = 1,10000
try select Z
getlasterror >> err
break err
endloop

// proceed from top to bottom
        loop z = 1,Z-1
                select Z-z
                getselectidlisttop >> ...,...,...,...,...,cType,...
                switch cType
                caseof 1
                        if txt
                                gosub doAssign
                        endif
                        break
                caseof 3
                caseof 4
                caseof 5
                caseof 12
                        getisframe >> isframe
                        if gr*not(isframe)
                                 gosub doAssign
                        endif
                        if isframe*frm
                                getframecontenttype >> fcType
                                if (fcType=1)*txt
                                         gosub doAssign
                                endif
                                if (fcType>1)
                                        getselectidlist >> ...,id,...
                                        separatecontent
                                        getselectlist >> sel
                                        b =  ( 11#sel(3),sel(9) )*eps + not(11# sel(3),sel(9) )*img
                                        selectidextend id
                                        attachcontent
                                        if b
                                                 gosub doAssign
                                        endif
                                endif
                                if not(fcType)*gr
                                         gosub doAssign
                                endif
                        endif
                        break
                caseof 6
                caseof 7
                caseof 8
                caseof 9
                caseof 10
                caseof 15
                        if img
                                 gosub doAssign
                        endif
                        break
                caseof 11
                        if eps
                                 gosub doAssign
                        endif
                        break
                endswitch
        endloop
endsub