#!/bin/tcsh 

# ***************************************************************************
#    copyright            : (C) 2008 by National Semiconductor Corporation
#    email                : igor@xxxxxxx 
# ***************************************************************************

#***************************************************************************
#*                                                                         *
#*   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.                                   *
#*                                                                         *
#***************************************************************************/

# Detect kernel version
set KERNEL_VERSION = `uname -r | cut -c1-3`
set GTK_VERSION = 0

if ( $KERNEL_VERSION == 2.4 ) then
   set GTK_VERSION = 1
endif
if ( $KERNEL_VERSION == 2.6 ) then
   set GTK_VERSION = 2
endif

set WINDOW_TITLE       = "'TEKTRONIX series 3000 screen capture tool'"
set PART               = "'UNKNOWN DEVICE'"
set TITLE              = "' High Voltage '"
set EMAIL_ADDRESS      = "$USER@xxx.xxx.com"
set EMAIL_SUBJECT      = "'Here are the bench results for the well designed and flawless '"
set EMAIL_SUBJECT_FINAL = "'Here are the bench results for the well designed and flawless '"
set DESCRIPTION_ABOVE  = "''"
set DESCRIPTION_BELLOW = "'Description below the graph is missing'"
set DEFAULT_AVERAGE    = 1
set DEFAULT_FILE_NAME  = "'tds300NN_data'"
set LABEL1_STRING      = "PART"
set LABEL2_STRING      = "TYPE"
set LABEL3_STRING      = "OSCILLOSCOPE"
set LABEL6_STRING      = "GRAPH"
set LABEL7_STRING      = "'DESCRIPTION above'"
set LABEL8_STRING      = "'description below'"
set LABEL10_STRING     = "'HOR cursor'"
set LABEL11_STRING     = "'VER cursor'"
set LABEL12_STRING     = "LABEL"
set LABEL13_STRING     = "CHANNEL"
set LABEL14_STRING     = 'MISCELLANEOUS'
set LABEL15_STRING     = "'DATA points'"
set LABEL16_STRING     = "AVERAGING"
set LABEL17_STRING     = "'LABEL font size'"
set LABEL19_STRING     = "'EMAIL'"
set LABEL21_STRING     = "'Subject:'"
set LABEL32_STRING     = "'FORMAT:'"
set LABEL52_STRING     = "'Address(es)'"
set LABEL33_STRING     = "'CREATE:'"
set LABEL34_STRING     = "'VIEW:'"
set LABEL31_STRING     = "''"
set LABEL18_STRING     = "'OUTPUT'"
set LABEL58_STRING     = "'INTERFACE'"
set LABEL54_STRING     = "'DATA FILE NAME'"
set LABEL49_STRING     = "''"
set LABEL56_STRING     = "'SETTING'"
set LABEL57_STRING     = "'CAPTURE'"

set GPIB_STRING        = "'Automatic detection'"
set TCPIP_STRING       = "'Enter IP address'"

set ENTRY8_STRING      = "'UNKNOWN SIGNAL'"
set ENTRY9_STRING      = "'UNKNOWN SIGNAL'"
set ENTRY10_STRING     = "'UNKNOWN SIGNAL'"
set ENTRY11_STRING     = "'UNKNOWN SIGNAL'"

set RETURN             = 'cat gtk'
set RETURN             = 'cat gtk >& /dev/null'
#set RETURN             = 'set TEMP = `cat gtk`'

# GTK stuff
set FALSE                 = 0
set TRUE                  = 1

set GTK_SHADOW_NONE       = 0
set GTK_SHADOW_IN         = 1
set GTK_SHADOW_OUT        = 2
set GTK_SHADOW_ETCHED_IN  = 3
set GTK_SHADOW_ETCHED_OUT = 4
set GTK_JUSTIFY_CENTER    = 2    #???

set GTK_BUTTONBOX_DEFAULT_STYLE = 0
set GTK_BUTTONBOX_SPREAD        = 1
set GTK_BUTTONBOX_EDGE          = 2
set GTK_BUTTONBOX_START         = 3
set GTK_BUTTONBOX_END           = 4
set GTK_BUTTONBOX_CENTER        = 5


# Start GTK-server
\rm `pwd`/gtk >& /dev/null
#gtk-server log fifo=`pwd`/gtk
gtk-server fifo=`pwd`/gtk
set GTK_SERVER_ID = `ps auxw | grep gtk-server | grep -v grep | awk '{print $2}'`

echo "gtk_init NULL NULL"                                        > gtk; eval "$RETURN"

echo "gtk_window_new 0"                                          > gtk; set WINDOW1 = `cat gtk`
echo "gtk_window_set_title $WINDOW1 $WINDOW_TITLE"               > gtk; eval "$RETURN"

echo "gtk_vbox_new $FALSE 3"                                     > gtk; set VBOX1 = `cat gtk`
echo "gtk_widget_show $VBOX1"                                    > gtk; eval "$RETURN"
echo "gtk_container_add $WINDOW1 $VBOX1"                         > gtk; eval "$RETURN"
echo "gtk_container_set_border_width $VBOX1 10"                  > gtk; eval "$RETURN"

echo "gtk_hbox_new $FALSE 5"                                     > gtk; set HBOX1 = `cat gtk`
echo "gtk_widget_show $HBOX1"                                    > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX1 $HBOX1 $TRUE $FALSE 0"           > gtk; eval "$RETURN"

echo "gtk_frame_new NULL"                                        > gtk; set FRAME1 = `cat gtk`
echo "gtk_widget_show $FRAME1"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX1 $FRAME1 $TRUE $TRUE 0"           > gtk; eval "$RETURN"
echo "gtk_frame_set_shadow_type $FRAME1 $GTK_SHADOW_ETCHED_OUT"  > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                             > gtk; set ALIGNMENT1 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT1"                               > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME1 $ALIGNMENT1"                     > gtk; eval "$RETURN"

echo "gtk_entry_new"                                             > gtk; set ENTRY1 = `cat gtk`
echo "gtk_widget_show $ENTRY1"                                   > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT1 $ENTRY1"                     > gtk; eval "$RETURN"
echo "gtk_entry_set_text $ENTRY1 $PART"                          > gtk; eval "$RETURN"

echo "gtk_label_new <b>$LABEL1_STRING</b>"                       > gtk; set LABEL1 = `cat gtk`
echo "gtk_widget_show $LABEL1"                                   > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME1 $LABEL1"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL1 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME1 $LABEL1_STRING"             > gtk; eval "$RETURN"
endif

echo "gtk_frame_new NULL"                                        > gtk; set FRAME2 = `cat gtk`
echo "gtk_widget_show $FRAME2"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX1 $FRAME2 $TRUE $TRUE 0"           > gtk; eval "$RETURN"
echo "gtk_frame_set_shadow_type $FRAME2 $GTK_SHADOW_ETCHED_OUT"  > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                             > gtk; set ALIGNMENT2 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT2"                               > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME2 $ALIGNMENT2"                     > gtk; eval "$RETURN"

echo "gtk_entry_new"                                             > gtk; set ENTRY2 = `cat gtk`
echo "gtk_widget_show $ENTRY2"                                   > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT2 $ENTRY2"                     > gtk; eval "$RETURN"
echo "gtk_entry_set_text $ENTRY2 $TITLE"                         > gtk; eval "$RETURN"

echo "gtk_label_new <b>$LABEL2_STRING</b>"                       > gtk; set LABEL2 = `cat gtk`
echo "gtk_widget_show $LABEL2"                                   > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME2 $LABEL2"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL2 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME2 $LABEL2_STRING"             > gtk; eval "$RETURN"
endif

echo "gtk_frame_new NULL"                                        > gtk; set FRAME3 = `cat gtk`
echo "gtk_widget_show $FRAME3"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX1 $FRAME3 $TRUE $TRUE 0"           > gtk; eval "$RETURN"
echo "gtk_frame_set_shadow_type $FRAME3 $GTK_SHADOW_ETCHED_OUT"  > gtk; eval "$RETURN"

echo "gtk_label_new 'TEKTRONIX TDS 3014B'"                       > gtk; set LABEL4 = `cat gtk`
echo "gtk_widget_show $LABEL4"                                   > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME3 $LABEL4"                         > gtk; eval "$RETURN"

echo "gtk_label_new $LABEL3_STRING"                              > gtk; set LABEL3 = `cat gtk`
echo "gtk_widget_show $LABEL3"                                   > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME3 $LABEL3"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL3 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME3 $LABEL3_STRING"             > gtk; eval "$RETURN"
endif

echo "gtk_vseparator_new "                                       > gtk; set VSEPARATOR1 = `cat gtk`
echo "gtk_widget_show $VSEPARATOR1"                              > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX1 $VSEPARATOR1 $FALSE $FALSE 8"    > gtk; eval "$RETURN"

echo "gtk_frame_new NULL"                                        > gtk; set FRAME5 = `cat gtk`
echo "gtk_widget_show $FRAME5"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX1 $FRAME5 $FALSE $TRUE 0"          > gtk; eval "$RETURN"
echo "gtk_frame_set_shadow_type $FRAME5 $GTK_SHADOW_NONE"        > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                             > gtk; set ALIGNMENT3 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT3"                               > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME5 $ALIGNMENT3"                     > gtk; eval "$RETURN"

if ( $GTK_VERSION == 2 ) then
   echo "gtk_button_new_with_mnemonic About"                     > gtk; set BUTTON1 = `cat gtk`
else
   echo "gtk_button_new_with_label About"                        > gtk; set BUTTON1 = `cat gtk`
endif
echo "gtk_widget_show $BUTTON1"                                  > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT3 $BUTTON1"                    > gtk; eval "$RETURN"

echo "gtk_label_new ''"                                          > gtk; set LABEL5 = `cat gtk`
echo "gtk_widget_show $LABEL5"                                   > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME5 $LABEL5"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL5 $TRUE"                 > gtk; eval "$RETURN"
endif

###########  second part ####################

echo "gtk_hseparator_new"                                        > gtk; set HSEPARATOR1 = `cat gtk`
echo "gtk_widget_show $HSEPARATOR1"                              > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX1 $HSEPARATOR1 $TRUE $TRUE 0"      > gtk; eval "$RETURN"

echo "gtk_frame_new NULL"                                        > gtk; set FRAME6 = `cat gtk`
echo "gtk_widget_show $FRAME6"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX1 $FRAME6 $TRUE $TRUE 0"           > gtk; eval "$RETURN"
echo "gtk_frame_set_label_align $FRAME6 0.5 0.5"                 > gtk; eval "$RETURN"
echo "gtk_frame_set_shadow_type $FRAME6 $GTK_SHADOW_ETCHED_OUT"  > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                             > gtk; set ALIGNMENT4 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT4"                               > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME6 $ALIGNMENT4"                     > gtk; eval "$RETURN"

echo "gtk_vbox_new $FALSE 0"                                     > gtk; set VBOX2 = `cat gtk`
echo "gtk_widget_show $VBOX2"                                    > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT4 $VBOX2"                      > gtk; eval "$RETURN"

echo "gtk_frame_new NULL"                                        > gtk; set FRAME7 = `cat gtk`
echo "gtk_widget_show $FRAME7"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX2 $FRAME7 $TRUE $TRUE 0"           > gtk; eval "$RETURN"
echo "gtk_frame_set_shadow_type $FRAME7 $GTK_SHADOW_ETCHED_OUT"  > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                             > gtk; set ALIGNMENT5 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT5"                               > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME7 $ALIGNMENT5"                     > gtk; eval "$RETURN"

#DESCRIPTION
echo "gtk_entry_new"                                             > gtk; set ENTRY3 = `cat gtk`
echo "gtk_widget_show $ENTRY3"                                   > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT5 $ENTRY3"                     > gtk; eval "$RETURN"
echo "gtk_entry_set_text $ENTRY3 $DESCRIPTION_ABOVE"             > gtk; eval "$RETURN"

echo "gtk_label_new <b>$LABEL7_STRING</b>"                       > gtk; set LABEL7 = `cat gtk`
echo "gtk_widget_show $LABEL7"                                   > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME7 $LABEL7"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL7 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME7 $LABEL7_STRING"             > gtk; eval "$RETURN"
endif

echo "gtk_hbox_new $FALSE 0"                                     > gtk; set HBOX2 = `cat gtk`
echo "gtk_widget_show $HBOX2"                                    > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX2 $HBOX2 $TRUE $TRUE 0"            > gtk; eval "$RETURN"

echo "gtk_hbox_new $FALSE 0"                                     > gtk; set HBOX3 = `cat gtk`
echo "gtk_widget_show $HBOX3"                                    > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX2 $HBOX3 $TRUE $TRUE 0"            > gtk; eval "$RETURN"

echo "gtk_hbox_new $FALSE 0"                                     > gtk; set HBOX4 = `cat gtk`
echo "gtk_widget_show $HBOX4"                                    > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX3 $HBOX4 $TRUE $TRUE 0"            > gtk; eval "$RETURN"

echo "gtk_frame_new NULL"                                        > gtk; set FRAME13 = `cat gtk`
echo "gtk_widget_show $FRAME13"                                  > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX4 $FRAME13 $TRUE $TRUE 0"          > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                             > gtk; set ALIGNMENT11 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT11"                              > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME13 $ALIGNMENT11"                   > gtk; eval "$RETURN"

echo "gtk_vbox_new $TRUE 0"                                      > gtk; set VBOX11 = `cat gtk`
echo "gtk_widget_show $VBOX11"                                   > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT11 $VBOX11"                    > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ' 1'"                      > gtk; set CHECKBUTTON12 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON12"                            > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX11 $CHECKBUTTON12 $FALSE $FALSE 0" > gtk; eval "$RETURN"
echo "gtk_toggle_button_set_active $CHECKBUTTON12 $FALSE"         > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ' 2'"                      > gtk; set CHECKBUTTON13 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON13"                            > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX11 $CHECKBUTTON13 $FALSE $FALSE 0" > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ' 3'"                      > gtk; set CHECKBUTTON14 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON14"                            > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX11 $CHECKBUTTON14 $FALSE $FALSE 0" > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ' 4'"                      > gtk; set CHECKBUTTON15 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON15"                            > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX11 $CHECKBUTTON15 $FALSE $FALSE 0" > gtk; eval "$RETURN"

echo "gtk_label_new <b>$LABEL13_STRING</b>"                      > gtk; set LABEL13 = `cat gtk`
echo "gtk_widget_show $LABEL13"                                  > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME13 $LABEL13"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL13 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME13 $LABEL13_STRING"             > gtk; eval "$RETURN"
endif

echo "gtk_frame_new NULL"                                        > gtk; set FRAME12 = `cat gtk`
echo "gtk_widget_show $FRAME12"                                  > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX4 $FRAME12 $TRUE $TRUE 0"          > gtk; eval "$RETURN"
echo "gtk_frame_set_label_align $FRAME12 0.5 0.5"                > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                             > gtk; set ALIGNMENT10 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT10"                              > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME12 $ALIGNMENT10"                   > gtk; eval "$RETURN"

echo "gtk_hbox_new $FALSE 0"                                     > gtk; set HBOX5 = `cat gtk`
echo "gtk_widget_show $HBOX5"                                    > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT10 $HBOX5"                     > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                             > gtk; set ALIGNMENT17 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT17"                              > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX5 $ALIGNMENT17 $TRUE $TRUE 0"      > gtk; eval "$RETURN"

echo "gtk_vbox_new $TRUE 0"                                      > gtk; set VBOX9 = `cat gtk`
echo "gtk_widget_show $VBOX9"                                    > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT17 $VBOX9"                     > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                        > gtk; set CHECKBUTTON8 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON8"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX9 $CHECKBUTTON8 $FALSE $FALSE 0"   > gtk; eval "$RETURN"
echo "gtk_toggle_button_set_active $CHECKBUTTON8 $FALSE"         > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                        > gtk; set CHECKBUTTON9 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON9"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX9 $CHECKBUTTON9 $FALSE $FALSE 0"   > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                        > gtk; set CHECKBUTTON10 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON10"                            > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX9 $CHECKBUTTON10 $FALSE $FALSE 0"  > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                         > gtk; set CHECKBUTTON11 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON11"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX9 $CHECKBUTTON11 $FALSE $FALSE 0"   > gtk; eval "$RETURN"

echo "gtk_vbox_new $TRUE 0"                                       > gtk; set VBOX10 = `cat gtk`
echo "gtk_widget_show $VBOX10"                                    > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX5 $VBOX10 $TRUE $TRUE 0"            > gtk; eval "$RETURN"

echo "gtk_entry_new"                                              > gtk; set ENTRY8 = `cat gtk`
echo "gtk_widget_show $ENTRY8"                                    > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX10 $ENTRY8 $FALSE $FALSE 0"         > gtk; eval "$RETURN"
echo "gtk_entry_set_text $ENTRY8 $ENTRY8_STRING"                  > gtk; eval "$RETURN"

echo "gtk_entry_new"                                              > gtk; set ENTRY9 = `cat gtk`
echo "gtk_widget_show $ENTRY9"                                    > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX10 $ENTRY9 $FALSE $FALSE 0"         > gtk; eval "$RETURN"
echo "gtk_entry_set_text $ENTRY9 $ENTRY9_STRING"                  > gtk; eval "$RETURN"

echo "gtk_entry_new"                                              > gtk; set ENTRY10 = `cat gtk`
echo "gtk_widget_show $ENTRY10"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX10 $ENTRY10 $FALSE $FALSE 0"        > gtk; eval "$RETURN"
echo "gtk_entry_set_text $ENTRY10 $ENTRY10_STRING"                > gtk; eval "$RETURN"

echo "gtk_entry_new"                                              > gtk; set ENTRY11 = `cat gtk`
echo "gtk_widget_show $ENTRY11"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX10 $ENTRY11 $FALSE $FALSE 0"        > gtk; eval "$RETURN"
echo "gtk_entry_set_text $ENTRY11 $ENTRY11_STRING"                > gtk; eval "$RETURN"

echo "gtk_label_new <b>$LABEL12_STRING</b>"                       > gtk; set LABEL12 = `cat gtk`
echo "gtk_widget_show $LABEL12"                                   > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME12 $LABEL12"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL12 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME12 $LABEL12_STRING"             > gtk; eval "$RETURN"
endif


echo "gtk_frame_new NULL"                                         > gtk; set FRAME10 = `cat gtk`
echo "gtk_widget_show $FRAME10"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX4 $FRAME10 $TRUE $TRUE 0"           > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                              > gtk; set ALIGNMENT8 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT8"                                > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME10 $ALIGNMENT8"                     > gtk; eval "$RETURN"

echo "gtk_vbox_new $TRUE 0"                                       > gtk; set VBOX7 = `cat gtk`
echo "gtk_widget_show $VBOX7"                                     > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT8 $VBOX7"                       > gtk; eval "$RETURN"

echo "gtk_label_new $LABEL10_STRING"                              > gtk; set LABEL10 = `cat gtk`
echo "gtk_widget_show $LABEL10"                                   > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME10 $LABEL10"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL10 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME10 $LABEL10_STRING"             > gtk; eval "$RETURN"
endif

echo "gtk_check_button_new_with_label ''"                         > gtk; set CHECKBUTTON16 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON16"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX7 $CHECKBUTTON16 $FALSE $FALSE 0"   > gtk; eval "$RETURN"
echo "gtk_toggle_button_set_active $CHECKBUTTON16 $FALSE"         > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                         > gtk; set CHECKBUTTON17 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON17"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX7 $CHECKBUTTON17 $FALSE $FALSE 0"   > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                         > gtk; set CHECKBUTTON18 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON18"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX7 $CHECKBUTTON18 $FALSE $FALSE 0"   > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                         > gtk; set CHECKBUTTON19 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON19"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX7 $CHECKBUTTON19 $FALSE $FALSE 0"   > gtk; eval "$RETURN"


echo "gtk_frame_new NULL"                                         > gtk; set FRAME11 = `cat gtk`
echo "gtk_widget_show $FRAME11"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX4 $FRAME11 $TRUE $TRUE 0"           > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                              > gtk; set ALIGNMENT9 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT9"                                > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME11 $ALIGNMENT9"                     > gtk; eval "$RETURN"

echo "gtk_vbox_new $TRUE 0"                                       > gtk; set VBOX8 = `cat gtk`
echo "gtk_widget_show $VBOX8"                                     > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT9 $VBOX8"                       > gtk; eval "$RETURN"

echo "gtk_label_new $LABEL11_STRING"                              > gtk; set LABEL11 = `cat gtk`
echo "gtk_widget_show $LABEL11"                                   > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME11 $LABEL11"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL11 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME11 $LABEL11_STRING"             > gtk; eval "$RETURN"
endif

# VERTICAL cursor CHECKBUTTON radio control
echo "gtk_check_button_new_with_label ''"                         > gtk; set CHECKBUTTON20 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON20"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX8 $CHECKBUTTON20 $FALSE $FALSE 0"   > gtk; eval "$RETURN"
echo "gtk_toggle_button_set_active $CHECKBUTTON20 $FALSE"         > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                         > gtk; set CHECKBUTTON21 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON21"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX8 $CHECKBUTTON21 $FALSE $FALSE 0"   > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                         > gtk; set CHECKBUTTON22 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON22"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX8 $CHECKBUTTON22 $FALSE $FALSE 0"   > gtk; eval "$RETURN"

echo "gtk_check_button_new_with_label ''"                         > gtk; set CHECKBUTTON23 = `cat gtk`
echo "gtk_widget_show $CHECKBUTTON23"                             > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX8 $CHECKBUTTON23 $FALSE $FALSE 0"   > gtk; eval "$RETURN"


echo "gtk_frame_new NULL"                                         > gtk; set FRAME14 = `cat gtk`
echo "gtk_widget_show $FRAME14"                                   > gtk; eval "$RETURN"
echo "gtk_box_pack_start $HBOX2 $FRAME14 $TRUE $TRUE 0"           > gtk; eval "$RETURN"
echo "gtk_frame_set_label_align $FRAME14 0.5 0.5"                 > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                              > gtk; set ALIGNMENT12 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT12"                               > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME14 $ALIGNMENT12"                    > gtk; eval "$RETURN"

echo "gtk_label_new $LABEL14_STRING"                              > gtk; set LABEL14 = `cat gtk`
echo "gtk_widget_show $LABEL14"                                   > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME14 $LABEL14"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL14 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME14 $LABEL14_STRING"             > gtk; eval "$RETURN"
endif

echo "gtk_frame_new NULL"                                         > gtk; set FRAME8 = `cat gtk`
echo "gtk_widget_show $FRAME8"                                    > gtk; eval "$RETURN"
echo "gtk_box_pack_start $VBOX2 $FRAME8 $TRUE $TRUE 0"            > gtk; eval "$RETURN"
echo "gtk_frame_set_shadow_type $FRAME8 $GTK_SHADOW_ETCHED_OUT"   > gtk; eval "$RETURN"

echo "gtk_alignment_new 0.5 0.5 1 1"                              > gtk; set ALIGNMENT6 = `cat gtk`
echo "gtk_widget_show $ALIGNMENT6"                                > gtk; eval "$RETURN"
echo "gtk_container_add $FRAME8 $ALIGNMENT6"                      > gtk; eval "$RETURN"

#description
echo "gtk_entry_new "                                             > gtk; set ENTRY4 = `cat gtk`
echo "gtk_widget_show $ENTRY4"                                    > gtk; eval "$RETURN"
echo "gtk_container_add $ALIGNMENT6 $ENTRY4"                      > gtk; eval "$RETURN"
echo "gtk_entry_set_text $ENTRY4 $DESCRIPTION_BELLOW"             > gtk; eval "$RETURN"

echo "gtk_label_new <b>$LABEL8_STRING</b>"                        > gtk; set LABEL8 = `cat gtk`
#echo "gtk_label_new $LABEL8_STRING"                               > gtk; set LABEL8 = `cat gtk`
echo "gtk_widget_show $LABEL8"                                    > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2 ) then
   echo "gtk_frame_set_label_widget $FRAME8 $LABEL8"             > gtk; eval "$RETURN"
   echo "gtk_label_set_use_markup $LABEL8 $TRUE"                 > gtk; eval "$RETURN"
else
   echo "gtk_frame_set_label $FRAME8 $LABEL8_STRING"             > gtk; eval "$RETURN"
endif

echo "gtk_label_new $LABEL6_STRING"                               > gtk; set LABEL6 = `cat gtk`
echo "gtk_widget_show $LABEL6"                                    > gtk; eval "$RETURN"
if ( $GTK_VERSION == 2