File: ui_transcoder.tcl

package info (click to toggle)
rat 4.2.22-2.2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 2,896 kB
  • ctags: 3,717
  • sloc: ansic: 36,542; tcl: 2,740; sh: 2,675; makefile: 295
file content (22 lines) | stat: -rw-r--r-- 429 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#
# ui_transcoder.tcl
#
# Copyright (c) 1995-2000 University College London
# All rights reserved.
#

proc mbus_recv {cmd args} {
  if [string match [info procs [lindex mbus_recv_$cmd 0]] cb_recv_$cmd] {
    #eval mbus_recv_$cmd $args
  }
}

# The transcoder UI comprises three frames: 
#	.l is the "left" side of the transcoder
#	.r is the "right" side of the transcoder
#	.c is for common controls

frame .l
frame .r
frame .c