Patch title: Release 94 bulk changes
Abstract:
File: /pliant/fullpliant/embedded/configure.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/linux/kernel/device.pli"


  s open "target:/etc/X11/XF86Config" out+mkdir+safe
  
  if not (c:env:"hardware":"screen":"horizontal_resolution" 
    rx := 1024
  if not (c:env:"hardware":"screen":"vertical_resolution" pa
    ry := 768
  if not (c:env:"hardware":"video":"vram_mb" parse (var Int 
    vram := undefined
  if not (c:env:"hardware":"video":"bpp" parse (var Int bpp)
    bpp := 24
  
  if vram=defined
    if bpp=32 and rx*ry*(bpp\8)>vram*2^20
      bpp := shunt c:env:"hardware":"video":"can_do_24_bpp"=
    while bpp>8 and rx*ry*(bpp\8)>vram*2^20
      bpp := shunt bpp>16 16 8
  
  c "hardware" "screen" "horizontal_resolution" := string rx
  c "hardware" "screen" "vertical_resolution" := string ry
  c "hardware" "video" "bpp" := string bpp
  
  # small recommended extensions
  s writeline "Section [dq]Module[dq]"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/linux/kernel/device.pli"


  s open "target:/etc/X11/XF86Config" out+mkdir+safe
  
  if not (c:env:"hardware":"screen":"horizontal_resolution" 
    rx := 1024
  if not (c:env:"hardware":"screen":"vertical_resolution" pa
    ry := 768
  if not (c:env:"hardware":"video":"vram_mb" parse (var Int 
    vram := undefined
  if not (c:env:"hardware":"video":"bpp" parse (var Int bpp)
    bpp := 24
  
  if vram=defined
    if bpp=32 and rx*ry*(bpp\8)>vram*2^20
      bpp := shunt c:env:"hardware":"video":"can_do_24_bpp"=
    while bpp>8 and rx*ry*(bpp\8)>vram*2^20
      bpp := shunt bpp>16 16 8
  
  c "hardware" "screen" "horizontal_resolution" := string rx
  c "hardware" "screen" "vertical_resolution" := string ry
  c "hardware" "video" "bpp" := string bpp
  
  # small recommended extensions
  s writeline "Section [dq]Module[dq]"
  s writeline "  Load [dq]int10[dq]"
  s writeline "  Load [dq]dbe[dq]"
  s writeline "  Load [dq]record[dq]"
  s writeline "  Load [dq]glx[dq]"
  s writeline "  Load [dq]extmod[dq]"
  # s writeline "  SubSection [dq]extmod[dq]"
  # s writeline "    Option [dq]omit xfree86-dga[dq]"
  # s writeline "  EndSubSection"
  s writeline "  Load [dq]extmod[dq]"
  # s writeline "  SubSection [dq]extmod[dq]"
  # s writeline "    Option [dq]omit xfree86-dga[dq]"
  # s writeline "  EndSubSection"
  s writeline "  Load [dq]dbe[dq]"
  s writeline "  Load [dq]record[dq]"
  s writeline "  Load [dq]type1[dq]"
  s writeline "  Load [dq]freetype[dq]"
  s writeline "  Load [dq]type1[dq]"
  s writeline "  Load [dq]freetype[dq]"
  # larger ones
  s writeline "  Load [dq]Glcore[dq]"
  # s writeline "  Load [dq]pex5[dq]"
  # s writeline "  Load [dq]xie[dq]"
  # s writeline "  Load [dq]glx[dq]"
  # s writeline "  Load [dq]dri[dq]"
  s writeline "EndSection"

  s writeline ""
  s writeline "EndSection"

  s writeline ""
  s writeline "Section [dq]DRI[dq]"
  s writeline "  Mode 0666"
  s writeline "EndSection"

  s writeline ""
  s writeline "Section [dq]Files[dq]"
  s writeline "  RgbPath [dq]/usr/X11R6/lib/X11/rgb[dq]"
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/misc:
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/75dpi
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/100dp
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/Type1
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/Speed
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/misc[
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/75dpi
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/100dp
  s writeline "EndSection"

  s writeline ""
  s writeline "Section [dq]InputDevice[dq]"
  s writeline "  Identifier [dq]Keyboard1[dq]"
  s writeline "  Driver [dq]Keyboard[dq]"
  s writeline "  Option [dq]AutoRepeat[dq] [dq]500 30[dq]"
  s writeline "  Option [dq]XkbRules[dq] [dq]xfree86[dq]"
  s writeline "  Option [dq]XkbModel[dq] [dq]pc101[dq]"
  var Str layout := c:env:"hardware":"keyboard":"xfree86_lay
  if layout=""
    layout := c:env:"hardware":"keyboard":"layout"
  if (layout parse any "(" any:(var Str layout0) ")" any)
    layout := layout0
  s writeline "  Option [dq]XkbLayout[dq] [dq]"+layout+"[dq]
  s writeline "EndSection"
  
  s writeline ""
  s writeline "Section [dq]InputDevice[dq]"
  s writeline "  Identifier [dq]Mouse1[dq]"
  s writeline "  Driver [dq]mouse[dq]"
  s writeline "Section [dq]Files[dq]"
  s writeline "  RgbPath [dq]/usr/X11R6/lib/X11/rgb[dq]"
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/misc:
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/75dpi
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/100dp
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/Type1
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/Speed
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/misc[
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/75dpi
  s writeline "  FontPath [dq]/usr/X11R6/lib/X11/fonts/100dp
  s writeline "EndSection"

  s writeline ""
  s writeline "Section [dq]InputDevice[dq]"
  s writeline "  Identifier [dq]Keyboard1[dq]"
  s writeline "  Driver [dq]Keyboard[dq]"
  s writeline "  Option [dq]AutoRepeat[dq] [dq]500 30[dq]"
  s writeline "  Option [dq]XkbRules[dq] [dq]xfree86[dq]"
  s writeline "  Option [dq]XkbModel[dq] [dq]pc101[dq]"
  var Str layout := c:env:"hardware":"keyboard":"xfree86_lay
  if layout=""
    layout := c:env:"hardware":"keyboard":"layout"
  if (layout parse any "(" any:(var Str layout0) ")" any)
    layout := layout0
  s writeline "  Option [dq]XkbLayout[dq] [dq]"+layout+"[dq]
  s writeline "EndSection"
  
  s writeline ""
  s writeline "Section [dq]InputDevice[dq]"
  s writeline "  Identifier [dq]Mouse1[dq]"
  s writeline "  Driver [dq]mouse[dq]"
  s writeline "  Option [dq]Protocol[dq] [dq]"+(shunt c:env:
  s writeline "  Option [dq]Protocol[dq] [dq]"+(shunt c:env:"hardware":"mouse":"wheel"="marble" "ExplorerPS/2" c:env:"hardware":"mouse":"linux_device"="device:/psaux" "PS/2" c:env:"hardware":"mouse":"linux_device"="device:/input/mice" "IMPS/2" "Microsoft")+"[dq]"
  s writeline "  Option [dq]Device[dq] [dq]"+(file_os_name c
  if c:env:"hardware":"mouse":"button"="2"
    s writeline "  Option [dq]Emulate3Buttons[dq]"
    s writeline "  Option [dq]Emulate3Timeout[dq] [dq]50[dq]
  s writeline "  Option [dq]Device[dq] [dq]"+(file_os_name c
  if c:env:"hardware":"mouse":"button"="2"
    s writeline "  Option [dq]Emulate3Buttons[dq]"
    s writeline "  Option [dq]Emulate3Timeout[dq] [dq]50[dq]
  if c:env:"hardware":"mouse":"wheel"="true"
    s writeline "  Option [dq]ZAxisMapping[dq] [dq]4 5[dq]"
    s writeline "  Option [dq]Buttons[dq] [dq]5[dq]"
  eif c:env:"hardware":"mouse":"wheel"="marble"
    s writeline "  Option [dq]ZAxisMapping[dq] [dq]6 7[dq]"
    s writeline "  Option [dq]Buttons[dq] [dq]7[dq]"
  if (c:env:"hardware":"mouse":"resolution" parse (var Int r
    s writeline "  Option [dq]Resolution[dq] [dq]"+c:env:"ha
  s writeline "EndSection"
  
  s writeline ""
  s writeline "Section [dq]Monitor[dq]"
  s writeline "  Identifier [dq]"+c:env:"hardware":"screen":
  s writeline "  HorizSync "+c:env:"hardware":"screen":"hori
  s writeline "  VertRefresh "+c:env:"hardware":"screen":"ve
  if (c:env:"hardware":"mouse":"resolution" parse (var Int r
    s writeline "  Option [dq]Resolution[dq] [dq]"+c:env:"ha
  s writeline "EndSection"
  
  s writeline ""
  s writeline "Section [dq]Monitor[dq]"
  s writeline "  Identifier [dq]"+c:env:"hardware":"screen":
  s writeline "  HorizSync "+c:env:"hardware":"screen":"hori
  s writeline "  VertRefresh "+c:env:"hardware":"screen":"ve
  var Str modline := c:env:"hardware":"screen":"xfree86_modline"
  if (modline parse (var Float drop) (var Int i) any) and rx=i
    s writeline "    Modeline [dq]"+string:rx+"x"+string:ry+"[dq] "+modline
  s writeline "EndSection"
  
  s writeline ""
  s writeline "Section [dq]Device[dq]"
  s writeline "  Identifier [dq]"+c:env:"hardware":"video":"
  s writeline "  Driver [dq]"+c:env:"hardware":"video":"xfre
  s writeline "EndSection"
  
  s writeline ""
  s writeline "Section [dq]Screen[dq]"
  s writeline "  Identifier [dq]Screen 1[dq]"
  s writeline "  Device [dq]"+c:env:"hardware":"video":"cons
  s writeline "  Monitor [dq]"+c:env:"hardware":"screen":"co
  s writeline "  DefaultDepth "+string:bpp
  s writeline "  Subsection [dq]Display[dq]"
  s writeline "    Depth "+string:bpp
  s writeline "    Modes [dq]"+string:rx+"x"+string:ry+"[dq]
  s writeline "    ViewPort 0 0"
  s writeline "  EndSubsection"
  if false # bpp=24 or bpp=32
    s writeline "  Subsection [dq]Display[dq]"
    s writeline "    Depth "+(string 32+24-bpp)
    s writeline "    Modes [dq]"+string:rx+"x"+string:ry+"[d
    s writeline "    ViewPort 0 0"
    s writeline "  EndSubsection"
  s writeline "EndSection"


  s menu "browser"
  s application "firefox" # "Firefox" "/usr/lib/mozilla-fire
  s application "mozilla" # "Mozilla" "/usr/lib/mozilla/mozi
  s application "konqueror"
  s application "galeon"
  s application "Netscape 4" "/usr/lib/netscape/477/navigato
    
  s menu "htmleditor"
  s application "OpenOffice" "/usr/lib/openoffice/program/sw
  s application "mozilla"
  s application "quanta"
  s application "Amaya" "/usr/local/Amaya/LINUX-ELF/bin/amay
  
  s menu "wordprocessor"
  s application "OpenWriter" "/usr/lib/openoffice/program/sw
  s application "scribus"
  s application "abiword"
  s application "kword"
  s writeline "EndSection"
  
  s writeline ""
  s writeline "Section [dq]Device[dq]"
  s writeline "  Identifier [dq]"+c:env:"hardware":"video":"
  s writeline "  Driver [dq]"+c:env:"hardware":"video":"xfre
  s writeline "EndSection"
  
  s writeline ""
  s writeline "Section [dq]Screen[dq]"
  s writeline "  Identifier [dq]Screen 1[dq]"
  s writeline "  Device [dq]"+c:env:"hardware":"video":"cons
  s writeline "  Monitor [dq]"+c:env:"hardware":"screen":"co
  s writeline "  DefaultDepth "+string:bpp
  s writeline "  Subsection [dq]Display[dq]"
  s writeline "    Depth "+string:bpp
  s writeline "    Modes [dq]"+string:rx+"x"+string:ry+"[dq]
  s writeline "    ViewPort 0 0"
  s writeline "  EndSubsection"
  if false # bpp=24 or bpp=32
    s writeline "  Subsection [dq]Display[dq]"
    s writeline "    Depth "+(string 32+24-bpp)
    s writeline "    Modes [dq]"+string:rx+"x"+string:ry+"[d
    s writeline "    ViewPort 0 0"
    s writeline "  EndSubsection"
  s writeline "EndSection"


  s menu "browser"
  s application "firefox" # "Firefox" "/usr/lib/mozilla-fire
  s application "mozilla" # "Mozilla" "/usr/lib/mozilla/mozi
  s application "konqueror"
  s application "galeon"
  s application "Netscape 4" "/usr/lib/netscape/477/navigato
    
  s menu "htmleditor"
  s application "OpenOffice" "/usr/lib/openoffice/program/sw
  s application "mozilla"
  s application "quanta"
  s application "Amaya" "/usr/local/Amaya/LINUX-ELF/bin/amay
  
  s menu "wordprocessor"
  s application "OpenWriter" "/usr/lib/openoffice/program/sw
  s application "scribus"
  s application "abiword"
  s application "kword"
  s application "StarWriter" "/usr/local/staroffice/soffice"
    
  s menu "chart"
  s application "guppi"
    
  s menu "chart"
  s application "guppi"
  s application "StarChart" "/usr/local/staroffice/soffice"
  s application "kchart"
  
  s menu "spreadsheet"
  s application "OpenCalc" "/usr/lib/openoffice/program/scal
  s application "gnumeric"
  s application "kspread"
  s application "kchart"
  
  s menu "spreadsheet"
  s application "OpenCalc" "/usr/lib/openoffice/program/scal
  s application "gnumeric"
  s application "kspread"
  s application "StarCalc" "/usr/local/staroffice/soffice"
  s blank_line
  s sub_menu "chart"
  
  s menu "image"
  s application "gimp"
  s blank_line
  s sub_menu "chart"
  
  s menu "image"
  s application "gimp"
  s application "StarImage" "/usr/local/staroffice/soffice"
  
  s menu "vector"
  s application "OpenDraw" "/usr/lib/openoffice/program/sdra
  s application "inkscape"
  s application "sketch"
  s application "karbon"
  s application "kontour"
  
  s menu "vector"
  s application "OpenDraw" "/usr/lib/openoffice/program/sdra
  s application "inkscape"
  s application "sketch"
  s application "karbon"
  s application "kontour"
  s application "StarDraw" "/usr/local/staroffice/soffice"
  s application "sodipodi"
  
  s menu "diagram"
  s application "dia"
  s application "kivio"
  
  s menu "presenter"
  s application "OpenImpress" "/usr/lib/openoffice/program/s
  s application "kpresenter"
  s application "sodipodi"
  
  s menu "diagram"
  s application "dia"
  s application "kivio"
  
  s menu "presenter"
  s application "OpenImpress" "/usr/lib/openoffice/program/s
  s application "kpresenter"
  s application "StarImpress" "/usr/local/staroffice/soffice
  
  s menu "drawing"
  s sub_menu "image"
  s sub_menu "vector"
  s sub_menu "diagram"
  s sub_menu "presenter"
  
  s menu "database"
  s application "gaby"
  
  s menu "drawing"
  s sub_menu "image"
  s sub_menu "vector"
  s sub_menu "diagram"
  s sub_menu "presenter"
  
  s menu "database"
  s application "gaby"
  s application "StarBase" "/usr/local/staroffice/soffice"
  s application "knoda"
    
  s menu "texteditor"
  s application "kwrite"
  s application "kate"
  s application "tkdesk"
  s application "adie"
  
  s menu "filemanager"
  s application "konqueror"
  s application "tkdesk"
  s application "PathFinder"

  s menu "tools"
  s application "calcularor"
  s application "knoda"
    
  s menu "texteditor"
  s application "kwrite"
  s application "kate"
  s application "tkdesk"
  s application "adie"
  
  s menu "filemanager"
  s application "konqueror"
  s application "tkdesk"
  s application "PathFinder"

  s menu "tools"
  s application "calcularor"
  s application "kphone"
    
  s menu "main"
  s writeline "+ [dq]"+computer_fullname+"[dq] Title"
  plugin menu_head
  s sub_menu "Web browser" "browser"
  s sub_menu "HTML editor" "htmleditor"
  s blank_line
  s sub_menu "Word processor" "wordprocessor"
  s sub_menu "spreadsheet"
  s sub_menu "drawing"
  s sub_menu "database"
  s blank_line
  s sub_menu "Text editor" "texteditor"
  s sub_menu "File manager" "filemanager"
  s sub_menu "Other tools" "tools"
  s application "Prompt" "xterm +sb -fg black -bg rgb:D8/D8/
  plugin menu_tail
  s writeline "MenuStyle black grey white -adobe-helvetica-b
 
  s writeline ""
  s writeline "DeskTopSize 2x2"
  s writeline "EdgeScroll 0 0"
  s writeline "OpaqueMoveSize 100"
  
  s writeline ""
  s writeline "DestroyMenu Window-Ops"
  s writeline "AddToMenu Window-Ops"
  s writeline "+ [dq]Window Options[dq] Title"
  s writeline "+ [dq](Un)Shade[dq] WindowShade"
  s writeline "+ [dq](Un)Maximize vertical[dq] Maximize 0 10
  s writeline "+ [dq](Un)Maximize horizontal[dq] Maximize 10
  s writeline "+ [dq](Un)Maximize to screen[dq] Maximize 100
  s writeline "+ [dq][dq] Nop"
  s writeline "+ [dq]Destroy[dq] Destroy"
  
  s writeline ""
  s writeline "DestroyDecor default-decor"
  s writeline "AddToDecor default-decor"
  s writeline "+ ButtonStyle Reset"
  s writeline "+ ButtonStyle 2 Vector 16 20x20@1 30x20@1 50x
  s writeline "+ ButtonStyle 4 Vector 2 80x76@0 20x76@1"
  
  s writeline ""
  s writeline "Style [dq]*[dq] UseDecor default-decor"
  s writeline "Style [dq]*[dq] Font -adobe-helvetica-bold-r-
  s writeline "Style [dq]*[dq] ForeColor black"
  s writeline "Style [dq]*[dq] BackColor #B0B0B0"
  s writeline "Style [dq]*[dq] HilightFore white"
  s writeline "Style [dq]*[dq] HilightBack #405060"
  s writeline "Style [dq]*[dq] BorderWidth 6"
  s writeline "Style [dq]*[dq] HandleWidth 6"
  s writeline "Style [dq]*[dq] MWMBorder"
  s writeline "Style [dq]*[dq] MWMDecor"
  s writeline "Style [dq]*[dq] SmartPlacement"
  s writeline "Style [dq]*[dq] RandomPlacement"
  s writeline "Style [dq]*[dq] IconBox 35 -50 -1 -1"
  s writeline "Style [dq]*[dq] Icon /usr/X11R6/lib/tkdesk/im
  s writeline "Style [dq]*[dq] IconFont -adobe-helvetica-med
  s writeline "Style [dq]xterm[dq] Icon /usr/X11R6/lib/tkdes
  
  s writeline ""
  s writeline "Mouse 1 R A Menu main"
  s writeline "Mouse 3 R A WindowList OnlyIcons, NoGeometry"
  
  s writeline "Mouse 1 T A move-or-raise"
  s writeline "Mouse 2 T A WindowShade"
  s writeline "Mouse 3 T A move-or-lower"
  s writeline "Mouse 1 S A resize-or-raise"
  s writeline "Mouse 3 S A move-or-lower"
  s writeline "Mouse 1 F A resize-or-raise"
  s writeline "Mouse 3 F A move-or-lower"
  
  s writeline "Mouse 0 I A deiconify-and-raise"
  
  s writeline "Mouse 0 1 A Popup Window-Ops"
  s writeline "Mouse 0 2 A Close"
  s writeline "Mouse 0 4 A Iconify"
  
  s writeline ""
  s writeline "Key F1 A SC GotoPage 0 0"
  s writeline "Key F2 A SC GotoPage 1 0"
  s writeline "Key F3 A SC GotoPage 0 1"
  s writeline "Key F4 A SC GotoPage 1 1"
  s writeline "Key F5 W SC Maximize 0 100"
  s writeline "Key F6 W SC Maximize 100 0"
  s writeline "Key F7 W SC Maximize 100 100"
  s writeline "Key F8 W SC WindowShade"
  s writeline "Key F9 W SC Raise"
  s writeline "Key F10 W SC Lower"
  s writeline "Key F11 W SC Iconify"
  s writeline "Key F12 W SC Close"
  
  s writeline ""
  s writeline "DestroyFunc deiconify-and-raise"
  s writeline "AddToFunc deiconify-and-raise"
  s writeline "+ [dq]I[dq] Iconify -1"
  s writeline "+ [dq]I[dq] Raise"
  
  s writeline ""
  s writeline "DestroyFunc move-or-raise"
  s writeline "AddToFunc move-or-raise"
  s writeline "+ [dq]M[dq] Move"
  s writeline "+ [dq]C[dq] Raise"
  
  s writeline ""
  s writeline "DestroyFunc move-or-lower"
  s writeline "AddToFunc move-or-lower"
  s writeline "+ [dq]M[dq] Move"
  s writeline "+ [dq]C[dq] Lower"
  
  s writeline ""
  s writeline "DestroyFunc resize-or-raise"
  s writeline "AddToFunc resize-or-raise"
  s writeline "+ [dq]M[dq] Resize"
  s writeline "+ [dq]C[dq] Raise"
  


export embedded_configure
    
  s menu "main"
  s writeline "+ [dq]"+computer_fullname+"[dq] Title"
  plugin menu_head
  s sub_menu "Web browser" "browser"
  s sub_menu "HTML editor" "htmleditor"
  s blank_line
  s sub_menu "Word processor" "wordprocessor"
  s sub_menu "spreadsheet"
  s sub_menu "drawing"
  s sub_menu "database"
  s blank_line
  s sub_menu "Text editor" "texteditor"
  s sub_menu "File manager" "filemanager"
  s sub_menu "Other tools" "tools"
  s application "Prompt" "xterm +sb -fg black -bg rgb:D8/D8/
  plugin menu_tail
  s writeline "MenuStyle black grey white -adobe-helvetica-b
 
  s writeline ""
  s writeline "DeskTopSize 2x2"
  s writeline "EdgeScroll 0 0"
  s writeline "OpaqueMoveSize 100"
  
  s writeline ""
  s writeline "DestroyMenu Window-Ops"
  s writeline "AddToMenu Window-Ops"
  s writeline "+ [dq]Window Options[dq] Title"
  s writeline "+ [dq](Un)Shade[dq] WindowShade"
  s writeline "+ [dq](Un)Maximize vertical[dq] Maximize 0 10
  s writeline "+ [dq](Un)Maximize horizontal[dq] Maximize 10
  s writeline "+ [dq](Un)Maximize to screen[dq] Maximize 100
  s writeline "+ [dq][dq] Nop"
  s writeline "+ [dq]Destroy[dq] Destroy"
  
  s writeline ""
  s writeline "DestroyDecor default-decor"
  s writeline "AddToDecor default-decor"
  s writeline "+ ButtonStyle Reset"
  s writeline "+ ButtonStyle 2 Vector 16 20x20@1 30x20@1 50x
  s writeline "+ ButtonStyle 4 Vector 2 80x76@0 20x76@1"
  
  s writeline ""
  s writeline "Style [dq]*[dq] UseDecor default-decor"
  s writeline "Style [dq]*[dq] Font -adobe-helvetica-bold-r-
  s writeline "Style [dq]*[dq] ForeColor black"
  s writeline "Style [dq]*[dq] BackColor #B0B0B0"
  s writeline "Style [dq]*[dq] HilightFore white"
  s writeline "Style [dq]*[dq] HilightBack #405060"
  s writeline "Style [dq]*[dq] BorderWidth 6"
  s writeline "Style [dq]*[dq] HandleWidth 6"
  s writeline "Style [dq]*[dq] MWMBorder"
  s writeline "Style [dq]*[dq] MWMDecor"
  s writeline "Style [dq]*[dq] SmartPlacement"
  s writeline "Style [dq]*[dq] RandomPlacement"
  s writeline "Style [dq]*[dq] IconBox 35 -50 -1 -1"
  s writeline "Style [dq]*[dq] Icon /usr/X11R6/lib/tkdesk/im
  s writeline "Style [dq]*[dq] IconFont -adobe-helvetica-med
  s writeline "Style [dq]xterm[dq] Icon /usr/X11R6/lib/tkdes
  
  s writeline ""
  s writeline "Mouse 1 R A Menu main"
  s writeline "Mouse 3 R A WindowList OnlyIcons, NoGeometry"
  
  s writeline "Mouse 1 T A move-or-raise"
  s writeline "Mouse 2 T A WindowShade"
  s writeline "Mouse 3 T A move-or-lower"
  s writeline "Mouse 1 S A resize-or-raise"
  s writeline "Mouse 3 S A move-or-lower"
  s writeline "Mouse 1 F A resize-or-raise"
  s writeline "Mouse 3 F A move-or-lower"
  
  s writeline "Mouse 0 I A deiconify-and-raise"
  
  s writeline "Mouse 0 1 A Popup Window-Ops"
  s writeline "Mouse 0 2 A Close"
  s writeline "Mouse 0 4 A Iconify"
  
  s writeline ""
  s writeline "Key F1 A SC GotoPage 0 0"
  s writeline "Key F2 A SC GotoPage 1 0"
  s writeline "Key F3 A SC GotoPage 0 1"
  s writeline "Key F4 A SC GotoPage 1 1"
  s writeline "Key F5 W SC Maximize 0 100"
  s writeline "Key F6 W SC Maximize 100 0"
  s writeline "Key F7 W SC Maximize 100 100"
  s writeline "Key F8 W SC WindowShade"
  s writeline "Key F9 W SC Raise"
  s writeline "Key F10 W SC Lower"
  s writeline "Key F11 W SC Iconify"
  s writeline "Key F12 W SC Close"
  
  s writeline ""
  s writeline "DestroyFunc deiconify-and-raise"
  s writeline "AddToFunc deiconify-and-raise"
  s writeline "+ [dq]I[dq] Iconify -1"
  s writeline "+ [dq]I[dq] Raise"
  
  s writeline ""
  s writeline "DestroyFunc move-or-raise"
  s writeline "AddToFunc move-or-raise"
  s writeline "+ [dq]M[dq] Move"
  s writeline "+ [dq]C[dq] Raise"
  
  s writeline ""
  s writeline "DestroyFunc move-or-lower"
  s writeline "AddToFunc move-or-lower"
  s writeline "+ [dq]M[dq] Move"
  s writeline "+ [dq]C[dq] Lower"
  
  s writeline ""
  s writeline "DestroyFunc resize-or-raise"
  s writeline "AddToFunc resize-or-raise"
  s writeline "+ [dq]M[dq] Resize"
  s writeline "+ [dq]C[dq] Raise"
  


export embedded_configure