#

#  Purpose          :  This file provides an example of a call to the

#                      function xy_window_rename()

#

#                      This session file opens a new database ’new.db’

#                      and a new xy window named ’XY_Window’ is

#                      created. The above mentioned function is then

#                      to rename this window to ’Renamed_XY_Window’.

#                      

#                      This file can be run by starting a session of

#                      Patran, opening a new or existing database,

#                      and running this session file through the 

#                      "File","Session","Play" pulldown menus

#                      on the menu bar.

#

#  The function xy_window_rename()

#  has the following arguments:

#

#  xy_window_rename

#     (  window_name,

#        new_name )

#

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

STRING   s_new_name[32]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Opening new database new.db

uil_file_new.go("","new.db")

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 1.5, 3.5, 5., 5.)

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Rename the window

s_window_name  = "XY_Window"

s_new_name     = "Renamed_XY_Window"

i_return_value =                                 @

   xy_window_rename                              @

      (  s_window_name,                          @

         s_new_name )

dump i_return_value

#---------------------------------------------------------------------