Subversion Repositories openrisc

# Target definition file fragment for framebuffer devices.
#
# The main support available is for controlled creation
# of the Tk frames in which the eCos framebuffer data will
# be displayed. By default the main framebuf.tcl script will
# create the 

proc my_framebuf_create_frame { id magnification depth little_endian width height viewport_width viewport_height stride number_pages format} {

    toplevel            .ecosfb$id
    wm title            .ecosfb$id      "eCos FB[set id]: $width*$height*\#depth"
    wm iconbitmap       .ecosfb$id      $framebuf::image_framebuf_icon
    wm iconmask         .ecosfb$id      $framebuf::image_framebufmask_icon
    wm protocol         .ecosfb$id      ""

    frame .ecosfb$id.frame -container 1 -height [expr $magnification * $viewport_height] -width [expr $magnification * $viewport_width]
    pack  .ecosfb$id.frame -side top -expand 0

    return .ecosfb$id.frame
}

synth_device framebuf {

    # Customize how the eCos framebuffer appears on the X display.
    # The argument should be a function which takes a long list of
    # arguments, as above, and returns a Tk frame id. Spawning the
    # C program is still the responsibility of the main framebuf.tcl
    # script.
    create_frame_proc   my_framebuf_create_frame

    # Optional magnification for all four permitted framebuffer
    # devices. Magnification can be 1, 2, 3 or 4
    # fb0_magnification 2
    # fb1_magnification 4
    # fb2_magnification 3
    # fb4_magnification 1
}