abtool.g

lpc 2400 bps语音编解码程序

;GIL-3
(
(
	:type                   :menu
	:name                   file_menu
	:help                   ""
	:columns                1
	:menu-type              :command
	:menu-handler           nil
	:menu-title             ""
	:menu-item-labels       ("Load SPD" "Load Segs" "Store Segs" )
	:menu-item-label-types  (:string :string :string )
	:menu-item-states       (:active :active :active )
	:menu-item-defaults     (nil nil nil )
	:initial-selections     (nil nil nil )
	:menu-item-handlers     (nil nil nil )
	:menu-item-menus        (nil nil nil )
	:menu-item-colors       ("" "" "" )
	:pinnable               t
	:user-data              ()
	:actions                ()
)
(
	:type                   :menu
	:name                   filenames_menu
	:help                   ""
	:columns                1
	:menu-type              :command
	:menu-handler           ab_filenames
	:menu-title             ""
	:menu-item-labels       ("Play" "Close" "Graph" "Segment" )
	:menu-item-label-types  (:string :string :string :string )
	:menu-item-states       (:active :active :active :active )
	:menu-item-defaults     (nil nil nil nil )
	:initial-selections     (nil nil nil nil )
	:menu-item-handlers     (nil nil nil nil )
	:menu-item-menus        (nil nil nil nil )
	:menu-item-colors       ("" "" "" "" )
	:pinnable               nil
	:user-data              ()
	:actions                (
		(
		:from                   (filenames_menu)
		:when                   (Notify )
		:to                     (filenames_menu)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (ab_filenames)
		)
	)
)
(
	:type                   :base-window
	:name                   win
	:owner                  nil
	:width                  517
	:height                 256
	:background-color       ""
	:foreground-color       ""
	:label                  "A/B Tool"
	:label-type             :string
	:initial-state          :open
	:show-footer            t
	:resizable              nil
	:icon-file              ""
	:icon-label             ""
	:icon-mask-file         ""
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :control-area
	:name                   controls1
	:owner                  win
	:help                   ""
	:x                      0
	:y                      0
	:width                  517
	:height                 132
	:background-color       ""
	:foreground-color       ""
	:initial-state          :visible
	:show-border            nil
	:menu                   nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :button
	:name                   file_button
	:owner                  controls1
	:help                   ""
	:x                      8
	:y                      8
	:width                  54
	:height                 19
	:constant-width         nil
	:button-type            :normal
	:foreground-color       ""
	:label                  "File"
	:label-type             :string
	:initial-state          :active
	:menu                   file_menu
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :button
	:name                   audio_button
	:owner                  controls1
	:help                   ""
	:x                      68
	:y                      8
	:width                  62
	:height                 19
	:constant-width         nil
	:button-type            :normal
	:foreground-color       ""
	:label                  "Audio..."
	:label-type             :string
	:initial-state          :active
	:menu                   nil
	:notify-handler         ab_audio
	:event-handler          nil
	:user-data              ()
	:actions                (
		(
		:from                   (win audio_button)
		:when                   (Notify )
		:to                     (win audio_button)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (ab_audio)
		)
	)
)
(
	:type                   :button
	:name                   props_button
	:owner                  controls1
	:help                   ""
	:x                      136
	:y                      8
	:width                  89
	:height                 19
	:constant-width         nil
	:button-type            :normal
	:foreground-color       ""
	:label                  "Properties..."
	:label-type             :string
	:initial-state          :active
	:menu                   nil
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                (
		(
		:from                   (win props_button)
		:when                   (Notify )
		:to                     (pwin)
		:function_type          :user_defined
		:arg_type               ()
		:action                 (Show)
		)
	)
)
(
	:type                   :drop-target
	:name                   drop_target1
	:owner                  controls1
	:help                   ""
	:x                      360
	:y                      8
	:width                  18
	:height                 16
	:drop-target_width      12
	:default-drop-site      nil
	:draggable              t
	:droppable              t
	:label                  ""
	:label-type             :string
	:normal-drop-glyph      ""
	:busy-drop-glyph        ""
	:dnd-cursor             ""
	:dnd-cursor-xhot        0
	:dnd-cursor-yhot        0
	:dnd-accept-cursor      ""
	:dnd-accept-cursor-xhot 0
	:dnd-accept-cursor-yhot 0
	:foreground-color       ""
	:initial-state          :active
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                (
		(
		:from                   (win drop_target1)
		:when                   (DroppedUpon )
		:to                     (win drop_target1)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (canvas_drop_function)
		)
		(
		:from                   (win drop_target1)
		:when                   (DraggedFrom )
		:to                     (win drop_target1)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (ab_drag_function)
		)
	)
)
(
	:type                   :button
	:name                   quit_button
	:owner                  controls1
	:help                   ""
	:x                      388
	:y                      8
	:width                  45
	:height                 19
	:constant-width         nil
	:button-type            :normal
	:foreground-color       ""
	:label                  "Quit"
	:label-type             :string
	:initial-state          :active
	:menu                   nil
	:notify-handler         ab_quit
	:event-handler          nil
	:user-data              ()
	:actions                (
		(
		:from                   (win quit_button)
		:when                   (Notify )
		:to                     (win quit_button)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (ab_quit)
		)
	)
)
(
	:type                   :button
	:name                   play_button
	:owner                  controls1
	:help                   ""
	:x                      440
	:y                      8
	:width                  69
	:height                 19
	:constant-width         nil
	:button-type            :normal
	:foreground-color       ""
	:label                  "Play A/B"
	:label-type             :string
	:initial-state          :active
	:menu                   nil
	:notify-handler         ab_play
	:event-handler          nil
	:user-data              ()
	:actions                (
		(
		:from                   (win play_button)
		:when                   (Notify )
		:to                     (win play_button)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (ab_play)
		)
	)
)
(
	:type                   :scrolling-list
	:name                   list1
	:owner                  controls1
	:help                   ""
	:x                      8
	:y                      36
	:width                  365
	:height                 92
	:value-x                8
	:value-y                36
	:rows                   4
	:foreground-color       ""
	:label                  ""
	:title                  ""
	:label-type             :string
	:layout-type            :horizontal
	:read-only              t
	:multiple-selections    nil
	:selection-required     nil
	:initial-state          :active
	:droppable              nil
	:default-drop-site      nil
	:menu                   filenames_menu
	:notify-handler         flist
	:event-handler          nil
	:initial-list-values    ()
	:initial-list-glyphs    ()
	:initial-selections     ()
	:user-data              ()
	:actions                (
		(
		:from                   (win list1)
		:when                   (Notify )
		:to                     (win list1)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (flist)
		)
	)
)
(
	:type                   :text-field
	:name                   ab_text
	:owner                  controls1
	:help                   ""
	:x                      414
	:y                      36
	:width                  93
	:height                 15
	:value-x                443
	:value-y                36
	:value-length           8
	:stored-length          8
	:rows                   3
	:foreground-color       ""
	:text-type              :alphanumeric
	:label                  "AB:"
	:label-type             :string
	:layout-type            :horizontal
	:value-underlined       t
	:initial-value          ""
	:initial-state          :active
	:read-only              nil
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :text-field
	:name                   seg_text
	:owner                  controls1
	:help                   ""
	:x                      408
	:y                      57
	:width                  99
	:height                 15
	:value-x                443
	:value-y                57
	:value-length           8
	:stored-length          8