home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jeditmodes / note-mode.tcl < prev    next >
Encoding:
Text File  |  1995-02-10  |  1023 b   |  43 lines
  1. # ~/.tk/edittkmodes/note-mode.tcl - mode for short yellow-sticky-style notes
  2. ######################################################################
  3.  
  4. proc mode:note:init { t } {
  5.   global JEDIT_MODEPREFS
  6.   
  7.   j:read_prefs -array JEDIT_MODEPREFS -prefix note \
  8.     -directory ~/.tk/jeditmodes -file note-defaults {
  9.     {textfont -*-lucida-medium-r-*-*-10-*-*-*-*-*-*-*}
  10.     {textwidth 40}
  11.     {textheight 24}
  12.     {textwrap word}
  13.     {sabbrev 0}
  14.     {dabbrev 0}
  15.     {autobreak 0}
  16.     {autoindent 1}
  17.     {savestate 1}
  18.     {buttonbar 1}
  19.     {menu,editor 1}
  20.     {menu,file 1}
  21.     {menu,edit 1}
  22.     {menu,prefs 0}
  23.     {menu,abbrev 1}
  24.     {menu,filter 1}
  25.     {menu,format 1}
  26.     {menu,display 1}
  27.     {menu,mode1 0}
  28.     {menu,mode2 0}
  29.     {menu,user 1}
  30.   }
  31. }
  32.  
  33. ######################################################################
  34. # define the button bar:
  35.  
  36. proc mode:note:mkbuttons { w t } {
  37.   j:buttonbar $w -pady 2 -buttons [format {
  38.     {done Done {jedit:cmd:done %s}}
  39.     {quit Quit {jedit:cmd:quit %s}}
  40.   } $t $t]
  41.   return $w
  42. }
  43.