#
# CVS Info=$Header: e:\conversionrepos\Surpac/src/etc/DisplayAllLayers.tcl,v 1.1 2000/03/31 07:25:04 rowdy Exp $
#
# History:
# $Log: DisplayAllLayers.tcl,v $
# Revision 1.1  2000/03/31 07:25:04  rowdy
# New script to perform a function invoked by a menu item. Copied to BETA development area.
#
#
###########################################################################

#
#  This script displays all strings in all layers, and all objects in all layers.
#
set count [sclGraphicsLayers SclCountItems]
for {set i 0} {$i < $count} {incr i} {

  sclGraphicsLayers SclGetItem SwaHandle $i
  set layer [$SwaHandle SclGetId]

    set status [ SclFunction "DRAW STRING STYLES" {
      frm00850={
        {
          string_range=""
          segment_range=""
          layer_name="$layer"
        }
      }
    }]

    set status [ SclFunction "DRAW OBJECTS" {
      frm00089={
        {
          range1=""
          range2=""
          range3=""
          ifld_num="d1"
          textalignment="<"
          layer_name="$layer"
        }
      }
    }]

}

