/* colors */
" s none m none c none",
". s iconColor1 m black c #000000",
-"X s iconColor2 m none c #FFFFFF",
-"o s iconGray2 m none c #bdbdbd",
+"X s iconColor2 m none c #FFFFFF",
+"o s iconGray2 m none c #bdbdbd",
"O s iconGray5 m black c #737373",
"+ s bottomShadowColor m black c #5D6069",
"@ c #FF1144",
/* pixels */
" ....... ",
" .XXXXX.. ",
-" .X...X.X. ",
+" .XXXXX.X. ",
" .XXXXX.... ",
-" .X...XXXX.O ",
-" .XXXXXXXX.O ",
-" .X.....XX.O ",
+" .XXXXXXXX. ",
+" .XXXXXXXX. ",
+" ..XXXXXXXX.. ",
" .XXXXXXXX.O ",
"................ ",
".XXXXXXXXXXXXXO. ",
-*help.txt* For Vim version 7.0aa. Last change: 2004 Jul 05
+*help.txt* For Vim version 7.0aa. Last change: 2004 Dec 30
VIM - main help file
k
|pi_expl.txt| File explorer
LOCAL ADDITIONS: *local-additions*
-|engspchk.txt| English Spelling Checker (v57) May 25, 2004
-|example.txt| Example for a locally added help file
-|matchit.txt| Extended "%" matching
-|test.txt| Testing the hélp cömmånd nôw
-|typecorr.txt| Plugin for correcting typing mistakes
-|helpp.txt| Dummy line to avoid an error message
------------------------------------------------------------------------------
*bars* Bars example
--- /dev/null
+" Menu Translations: Polish
+" Maintainer: Rafal M. Sulejman <rms@poczta.onet.pl>
+" Initial Translation: Marcin Dalecki <dalecki@cs.net.pl>
+" Last Change: 06 Sep 2001
+
+" Quit when menu translations have already been done.
+if exists("did_menu_trans")
+ finish
+endif
+let did_menu_trans = 1
+
+scriptencoding iso-8859-2
+
+" Help menu
+menutrans &Help Po&moc
+menutrans &Overview<Tab><F1> &Spis\ Tre¶ci<Tab><F1>
+menutrans &How-to\ links &Odno¶niki\ JTZ
+menutrans &Credits Po&dziêkowania
+menutrans &User\ Manual Podrêcznik\ &u¿ytkownika
+menutrans Co&pying &Kopiowanie
+menutrans &Version &Wersja
+menutrans &About o\ &Aplikacji
+
+" File menu
+menutrans &File &Plik
+menutrans &Open\.\.\.<Tab>:e &Otwórz\.\.\.<Tab>:e
+menutrans Sp&lit-Open\.\.\.<Tab>:sp Otwórz\ z\ &podzia³em\.\.\.<Tab>:sp
+menutrans &New<Tab>:enew &Nowy<Tab>:enew
+menutrans &Close<Tab>:close &Zamknij<Tab>:close
+menutrans &Save<Tab>:w Za&pisz<Tab>:w
+menutrans Save\ &As\.\.\.<Tab>:sav Zapisz\ &jako\.\.\.<Tab>:sav
+menutrans Split\ &Diff\ with\.\.\. Podziel\ na\ diff-a\ miêdzy\.\.\.
+menutrans Split\ Patched\ &By\.\.\. Podziel\ ³atane\ przez\.\.\.
+menutrans &Print &Drukuj
+menutrans Sa&ve-Exit<Tab>:wqa Zapisz\ i\ w&yjd¼<Tab>:wqa
+menutrans E&xit<Tab>:qa &Wyj¶cie<Tab>:qa
+
+" Edit menu
+menutrans &Edit &Edycja
+menutrans &Undo<Tab>u &Cofnij<Tab>u
+menutrans &Redo<Tab>^R &Ponów<Tab>^R
+menutrans Rep&eat<Tab>\. P&owtórz<Tab>\.
+menutrans Cu&t<Tab>"+x W&ytnij<Tab>"+x
+menutrans &Copy<Tab>"+y &Kopiuj<Tab>"+y
+menutrans &Paste<Tab>"+gP &Wklej<Tab>"+gP
+menutrans Put\ &Before<Tab>[p Wstaw\ p&rzed<Tab>[p
+menutrans Put\ &After<Tab>]p Wstaw\ p&o<Tab>]p
+menutrans &Select\ all<Tab>ggVG Z&aznacz\ ca³o¶æ<Tab>ggVG
+menutrans &Find\.\.\. &Szukaj\.\.\.
+menutrans &Find<Tab>/ &Szukaj<Tab>/
+menutrans Find\ and\ Rep&lace\.\.\. &Zamieñ\.\.\.
+menutrans Find\ and\ Rep&lace<Tab>:%s &Zamieñ<Tab>:%s
+menutrans Find\ and\ Rep&lace &Zamieñ
+menutrans Find\ and\ Rep&lace<Tab>:s &Zamieñ<Tab>:s
+menutrans Options\.\.\. Opcje\.\.\.
+menutrans Settings\ &Window Ustawienia
+menutrans &Global\ Settings Ustawienia\ &globalne
+menutrans F&ile\ Settings Ustawienia\ dla\ pliku
+menutrans Toggle\ Line\ &Numbering<Tab>:set\ nu! &Numerowanie\ wierszy<Tab>:set\ nu!
+menutrans Toggle\ &List\ Mode<Tab>:set\ list! Tryb\ &listowania<Tab>:set\ list!
+menutrans Toggle\ Line\ &Wrap<Tab>:set\ wrap! Za&wijanie\ wierszy<Tab>:set\ wrap!
+menutrans Toggle\ W&rap\ at\ word<Tab>:set\ lbr! £amanie\ wie&rsza<Tab>:set\ lbr!
+menutrans Toggle\ &expand-tab<Tab>:set\ et! Rozwijani&e\ tabulatorów<Tab>:set\ et!
+menutrans Toggle\ &auto-indent<Tab>:set\ ai! &Automatyczne\ wciêcia<Tab>:set\ ai!
+menutrans Toggle\ &C-indenting<Tab>:set\ cin! Wciêcia\ &C<Tab>:set\ cin!
+menutrans &Shiftwidth &Szeroko¶æ\ wciêcia
+menutrans Te&xt\ Width\.\.\. D³ugo¶æ\ linii\.\.\.
+menutrans &File\ Format\.\.\. &Format\ pliku\.\.\.
+menutrans Soft\ &Tabstop Rozmiar\ &tabulacji
+menutrans C&olor\ Scheme Zestawy\ kolorów
+menutrans &Keymap Uk³ady\ klawiatury
+menutrans None ¿aden
+menutrans accents akcenty
+menutrans hebrew hebrajski
+menutrans hebrewp hebrajski\ p
+menutrans russian-jcuken rosyjski-jcuken
+menutrans russian-jcukenwin rosyjski-jcukenwin
+menutrans russian-yawerty rosyjski-yawerty
+
+menutrans Toggle\ Pattern\ &Highlight<Tab>:set\ hls! Podkre¶lanie\ &wzorców<Tab>:set\ hls!
+
+menutrans Toggle\ &Ignore-case<Tab>:set\ ic! &Ignorowanie\ wielko¶ci<Tab>:set\ ic!
+menutrans Toggle\ &Showmatch<Tab>:set\ sm! &Pokazywanie\ pasuj±cych<Tab>:set\ sm!
+
+menutrans &Context\ lines Wiersze\ &kontekstowe
+menutrans &Virtual\ Edit Obróbka\ &wirtualna
+
+menutrans Never Nigdy
+menutrans Block\ Selection Zaznaczanie\ zakresu
+menutrans Insert\ mode Tryb\ wprowadzania
+menutrans Block\ and\ Insert Zakres\ i\ wprowadzanie
+menutrans Always Zawsze
+
+menutrans Toggle\ Insert\ &Mode<Tab>:set\ im! Tryb\ wprowadzania<Tab>:set\ im!
+menutrans Search\ &Path\.\.\. Scie¿ka\ poszukiwania\.\.\.
+menutrans Ta&g\ Files\.\.\. Pliki\ tagów\.\.\.
+
+
+"
+" GUI options
+menutrans Toggle\ &Toolbar Pasek\ narzêdzi
+menutrans Toggle\ &Bottom\ Scrollbar Dolny\ przewijacz
+menutrans Toggle\ &Left\ Scrollbar &Lewy\ przewijacz
+menutrans Toggle\ &Right\ Scrollbar P&rawy\ przewijacz
+
+" Programming menu
+menutrans &Tools &Narzêdzia
+menutrans &Jump\ to\ this\ tag<Tab>g^] &Skocz\ do\ taga<Tab>g^]
+menutrans Jump\ &back<Tab>^T Skok\ w\ &ty³<Tab>^T
+menutrans Build\ &Tags\ File &Twórz\ plik\ tagów
+" Folding
+menutrans &Folding &Zwijanie
+menutrans &Enable/Disable\ folds<Tab>zi &Zwiñ/rozwiñ<Tab>zi
+menutrans &View\ Cursor\ Line<Tab>zv &Linia\ kursora<Tab>zv
+menutrans Vie&w\ Cursor\ Line\ only<Tab>zMzx &Tylko\ linia\ kursora<Tab>zMzx
+menutrans C&lose\ more\ folds<Tab>zm Zwiñ\ wiêcej<Tab>zm
+menutrans &Close\ all\ folds<Tab>zM Z&wiñ\ wszystkie<Tab>zM
+menutrans &Open\ all\ folds<Tab>zR Rozwiñ\ wszystkie<Tab>zR
+menutrans O&pen\ more\ folds<Tab>zr R&ozwiñ\ wiêcej<Tab>zr
+
+menutrans Create\ &Fold<Tab>zf T&wórz\ zawiniêcie<Tab>zf
+menutrans &Delete\ Fold<Tab>zd U&suñ\ zawiniêcie<Tab>zd
+menutrans Delete\ &All\ Folds<Tab>zD &Usuñ\ wszystkie\ zawiniêcia<Tab>zD
+menutrans Fold\ column\ &width Szeroko¶æ\ kolumny\ za&winiêæ
+menutrans Fold\ Met&hod Me&toda\ zawijania
+menutrans M&anual &Rêcznie
+menutrans I&ndent W&ciêcie
+menutrans E&xpression W&yrazenie
+menutrans S&yntax S&k³adnia
+menutrans Ma&rker Zn&acznik
+
+" Diff
+menutrans &Update &Od¶wie¿
+menutrans &Get\ Block &Pobierz\ blok
+menutrans &Put\ Block &Wstaw\ blok
+
+" Make and stuff...
+menutrans &Make<Tab>:make M&ake<Tab>:make
+menutrans &List\ Errors<Tab>:cl &Poka¿\ b³êdy<Tab>:cl
+menutrans L&ist\ Messages<Tab>:cl! W&ylicz\ powiadomienia<Tab>:cl!
+menutrans &Next\ Error<Tab>:cn &Nastêpny\ b³±d<Tab>:cn
+menutrans &Previous\ Error<Tab>:cp &Poprzedni\ b³±d<Tab>:cp
+menutrans &Older\ List<Tab>:cold &Starsza\ lista<Tab>:cold
+menutrans N&ewer\ List<Tab>:cnew N&owsza\ lista<Tab>:cnew
+menutrans Error\ &Window Okno\ komu&nikatów
+menutrans &Update<Tab>:cwin Akt&ualizuj<Tab>:cwin
+menutrans &Close<Tab>:cclose &Zamknij<Tab>:cclose
+menutrans &Open<Tab>:copen &Otwórz<Tab>:copen
+
+menutrans &Set\ Compiler U&staw\ kompilator
+menutrans &Convert\ to\ HEX<Tab>:%!xxd Kody\ szesnastkowe<Tab>:%!xxd
+menutrans Conve&rt\ back<Tab>:%!xxd\ -r Zwyk³y\ tekst<Tab>:%!xxd\ -r
+
+" Names for buffer menu.
+menutrans &Buffers &Bufory
+menutrans &Refresh\ menu Od¶wie¿
+menutrans Delete Skasuj
+menutrans &Alternate &Zmieñ
+menutrans &Next &Nastêpny
+menutrans &Previous &Poprzedni
+menutrans [No\ File] [Brak\ Pliku]
+
+" Window menu
+menutrans &Window &Widoki
+menutrans &New<Tab>^Wn &Nowy<Tab>^Wn
+menutrans S&plit<Tab>^Ws Po&dziel<Tab>^Ws
+menutrans Sp&lit\ To\ #<Tab>^W^^ P&odziel\ na\ #<Tab>^W^^
+menutrans Split\ &Vertically<Tab>^Wv Podziel\ pionowo<Tab>^Wv
+menutrans Split\ File\ E&xplorer Otwórz\ mened¿er\ plików
+
+menutrans &Close<Tab>^Wc &Zamknij<Tab>^Wc
+menutrans Close\ &Other(s)<Tab>^Wo Zamknij\ &inne<Tab>^Wo
+menutrans Ne&xt<Tab>^Ww &Nastêpny<Tab>^Ww
+menutrans P&revious<Tab>^WW &Poprzedni<Tab>^WW
+menutrans &Equal\ Size<Tab>^W= &Wyrównaj\ wysoko¶ci<Tab>^W=
+menutrans &Max\ Height<Tab>^W_ Z&maksymalizuj\ wysoko¶æ<Tab>^W_
+menutrans M&in\ Height<Tab>^W1_ Zminim&alizuj\ wysoko¶æ<Tab>^W1_
+menutrans Max\ Width<Tab>^W\| Maksymalna\ szeroko¶æ<Tab>^W\|
+menutrans Min\ Width<Tab>^W1\| Minimalna\ szeroko¶æ<Tab>^W1\|
+menutrans Max\ &Width<Tab>^W\| Zmaksymalizuj\ szeroko¶æ<Tab>^W\|
+menutrans Min\ Widt&h<Tab>^W1\| Zminimalizuj\ szeroko¶æ<Tab>^W1\|
+menutrans Move\ &To &Id¼\ do
+menutrans &Top<Tab>^WK &Góra<Tab>^WK
+menutrans &Bottom<Tab>^WJ &Dó³<Tab>^WJ
+menutrans &Left\ side<Tab>^WH &Lewa\ strona<Tab>^WH
+menutrans &Right\ side<Tab>^WL &Prawa\ strona<Tab>^WL
+menutrans Rotate\ &Up<Tab>^WR Obróæ\ w\ &górê<Tab>^WR
+menutrans Rotate\ &Down<Tab>^Wr Obróæ\ w\ &dó³<Tab>^Wr
+menutrans Split\ &Vertically<Tab>^Wv &Podziel\ w\ poziomie<Tab>^Wv
+menutrans Select\ Fo&nt\.\.\. Wybierz\ &czcionkê\.\.\.
+
+" The popup menu
+menutrans &Undo &Cofnij
+menutrans Cu&t W&ytnij
+menutrans &Copy &Kopiuj
+menutrans &Paste &Wklej
+menutrans &Delete &Skasuj
+menutrans Select\ Blockwise Zaznacz\ &blok
+menutrans Select\ &Word Zaznacz\ &s³owo
+menutrans Select\ &Line Zaznacz\ w&iersz
+menutrans Select\ &Block Zaznacz\ &blok
+menutrans Select\ &All Zaznacz\ c&a³o¶æ
+
+" The GUI toolbar
+if has("toolbar")
+ if exists("*Do_toolbar_tmenu")
+ delfun Do_toolbar_tmenu
+ endif
+ fun Do_toolbar_tmenu()
+ tmenu ToolBar.Open Otwórz plik
+ tmenu ToolBar.Save Zapisz bie¿±cy plik
+ tmenu ToolBar.SaveAll Zapisz wszystkie pliki
+ tmenu ToolBar.Print Drukuj
+ tmenu ToolBar.Undo Cofnij
+ tmenu ToolBar.Redo Ponów
+ tmenu ToolBar.Cut Wytnij
+ tmenu ToolBar.Copy Skopiuj
+ tmenu ToolBar.Paste Wklej
+ tmenu ToolBar.Find Szukaj...
+ tmenu ToolBar.FindNext Szukaj nastêpnego
+ tmenu ToolBar.FindPrev Szukaj poprzedniego
+ tmenu ToolBar.Replace Szukaj i zamieniaj...
+ if 0 " disabled; These are in the Windows menu
+ tmenu ToolBar.New Nowy widok
+ tmenu ToolBar.WinSplit Podziel widok
+ tmenu ToolBar.WinMax Zmaksymalizuj widok
+ tmenu ToolBar.WinMin Zminimalizuj widok
+ tmenu ToolBar.WinClose Zamknij widok
+ endif
+ tmenu ToolBar.LoadSesn Za³aduj sesjê
+ tmenu ToolBar.SaveSesn Zachowaj bie¿±c± sesjê
+ tmenu ToolBar.RunScript Uruchom skrypt Vima
+ tmenu ToolBar.Make Wykonaj bie¿±cy projekt
+ tmenu ToolBar.Shell Otwórz pow³okê
+ tmenu ToolBar.RunCtags Twórz tagi w bie¿±cym katalogu
+ tmenu ToolBar.TagJump Skok do taga pod kursorem
+ tmenu ToolBar.Help Pomoc Vima
+ tmenu ToolBar.FindHelp Przeszukuj pomoc Vim-a
+ endfun
+endif
+
+" Syntax menu
+menutrans &Show\ filetypes\ in\ menu &Pokazuj\ rodzaj\ pliku\ w\ menue
+menutrans &Syntax &Sk³adnia
+menutrans Set\ '&syntax'\ only Ustaw\ tylko\ '&syntax'
+menutrans Set\ '&filetype'\ too Ustaw\ równie¿\ '&filetype'
+menutrans &Off &Wy³±cz
+menutrans &Manual &Rêcznie
+menutrans A&utomatic A&utomatyczne
+menutrans on/off\ for\ &This\ file w³±cz/w&y³±cz\ dla\ pliku
+menutrans Co&lor\ test Test\ &kolorów
+menutrans &Highlight\ test &Test\ pod¶wietlania
+menutrans &Convert\ to\ HTML Przetwórz\ na\ &HTML
+
+" dialog texts
+let menutrans_no_file = "[Brak pliku]"
+let menutrans_help_dialog = "Wprowad¼ komendê lub s³owo, aby otrzymaæ pomoc o:\n\nPrzedrostek i_ oznacza komendê trybu Wprowadzania (np. i_CTRL-X)\nPrzedrostek c_ oznacza komendê edycji wiersza komend (np. c_<Del>)\nPrzedrostek ' oznacza nazwê opcji (np. 'shiftwidth')"
+let g:menutrans_path_dialog = "Wprowad¼ ¶cie¿kê poszukiwania plików.\nProszê rozdzielaæ nazwy katalogów przecinkiem."
+let g:menutrans_tags_dialog = "Podaj nazwy plików tagów.\nProszê rozdzielaæ nazwy przecinkiem."
+let g:menutrans_textwidth_dialog = "Wprowad¼ now± szeroko¶æ tekstu (0 wy³±cza przewijanie): "
+let g:menutrans_fileformat_dialog = "Wybierz format w którym ten plik ma byæ zapisany"
endif
unlet s:n
endif
-if has("win32") || has("win16") || has("gui_gtk") || has("gui_kde") || has("gui_photon") || has("gui_mac")
+if has("win32") || has("win16") || has("gui_motif") || has("gui_gtk") || has("gui_kde") || has("gui_photon") || has("gui_mac")
an 20.470 &Edit.Select\ Fo&nt\.\.\. :set guifont=*<CR>
endif
--- /dev/null
+" vim:set ts=4 sw=4 ai nobackup:
+
+" tar.vim -- a vim plugin for browsing tarfiles
+" Copyright (c) 2002, Michael C. Toren <mct@toren.net>
+"
+" Updates are available from <http://michael.toren.net/code/>. If you
+" find this script useful, or have suggestions for improvements, please
+" let me know.
+"
+" Usage:
+" Once this script is installed, attempting to edit a tarfile will present
+" the user with a list of files contained in the tar archive. By moving the
+" cursor over a filename and pressing ENTER, the contents of a file can be
+" viewed in read-only mode, in a new window. Unfortunately, write support
+" for tarfile components is not currently possible.
+"
+" Requirements:
+" GNU tar, or a tar implementation that supports the "P" (don't strip
+" out leading /'s from filenames), and "O" (extract files to standard
+" output) options. Additionally, gzip is required for handling *.tar.Z,
+" *.tar.gz, and *.tgz compressed tarfiles, and bzip2 is required for
+" handling *.tar.bz2 compressed tarfiles. A unix-like operating system
+" is probably also required.
+"
+" Installation:
+" Place this file, tar.vim, in your $HOME/.vim/plugin directory, and
+" either restart vim, or execute ":source $HOME/.vim/plugin/tar.vim"
+"
+" Todo:
+" - Handle zipfiles?
+" - Implement write support, somehow.
+"
+" License:
+" This program is free software; you can redistribute it and/or modify it
+" under the terms of the GNU General Public License, version 2, as published
+" by the Free Software Foundation.
+"
+" This program is distributed in the hope that it will be useful, but
+" WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+" or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+" for more details.
+"
+" A copy of the GNU GPL is available as /usr/doc/copyright/GPL on Debian
+" systems, or on the World Wide Web at http://www.gnu.org/copyleft/gpl.html
+" You can also obtain it by writing to the Free Software Foundation, Inc.,
+" 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+"
+" Changelog:
+" Tue Dec 31 13:38:08 EST 2002 First release to beta testers
+" Sat Jan 4 14:06:19 EST 2003 Version 1.00 released
+
+let s:version = "1.00"
+
+if has("autocmd")
+augroup tar
+ au!
+ au BufReadCmd tarfile:* call s:TarRead(expand("<afile>"), 1)
+ au BufReadCmd tarfile:*/* call s:TarRead(expand("<afile>"), 1)
+ au FileReadCmd tarfile:* call s:TarRead(expand("<afile>"), 0)
+ au FileReadCmd tarfile:*/* call s:TarRead(expand("<afile>"), 0)
+
+ au BufWriteCmd tarfile:* call s:TarWrite(expand("<afile>"))
+ au BufWriteCmd tarfile:*/* call s:TarWrite(expand("<afile>"))
+ au FileWriteCmd tarfile:* call s:TarWrite(expand("<afile>"))
+ au FileWriteCmd tarfile:*/* call s:TarWrite(expand("<afile>"))
+
+ au BufReadCmd *.tar call s:TarBrowse(expand("<afile>"))
+ au BufReadCmd *.tar.gz call s:TarBrowse(expand("<afile>"))
+ au BufReadCmd *.tar.bz2 call s:TarBrowse(expand("<afile>"))
+ au BufReadCmd *.tar.Z call s:TarBrowse(expand("<afile>"))
+ au BufReadCmd *.tgz call s:TarBrowse(expand("<afile>"))
+augroup END
+endif
+
+function! s:TarWrite(argument)
+ echo "ERROR: Sorry, no write support for tarfiles yet"
+endfunction
+
+function! s:TarRead(argument, cleanup)
+ let l:argument = a:argument
+ let l:argument = substitute(l:argument, '^tarfile:', '', '')
+ let l:argument = substitute(l:argument, '^\~', $HOME, '')
+
+ let l:tarfile = l:argument
+ while 1
+ if (l:tarfile == "" || l:tarfile == "/")
+ echo "ERROR: Could not find a readable tarfile in path:" l:argument
+ return
+ endif
+
+ if filereadable(l:tarfile) " found it!
+ break
+ endif
+
+ let l:tarfile = fnamemodify(l:tarfile, ":h")
+ endwhile
+
+ let l:toextract = strpart(l:argument, strlen(l:tarfile) + 1)
+
+ if (l:toextract == "")
+ return
+ endif
+
+ let l:cat = s:TarCatCommand(l:tarfile)
+ execute "r !" . l:cat . " < '" . l:tarfile . "'"
+ \ " | tar OPxf - '" . l:toextract . "'"
+
+ if (a:cleanup)
+ 0d "blank line
+ execute "doautocmd BufReadPost " . expand("%")
+ setlocal readonly
+ silent preserve
+ endif
+endfunction
+
+function! s:TarBrowse(tarfile)
+ setlocal noswapfile
+ setlocal buftype=nofile
+ setlocal bufhidden=hide
+ setlocal filetype=
+ setlocal nobuflisted
+ setlocal buftype=nofile
+ setlocal wrap
+
+ let l:tarfile = a:tarfile
+ let b:tarfile = l:tarfile
+ let l:cat = s:TarCatCommand(l:tarfile)
+
+ if ! filereadable(l:tarfile)
+ let l:tarfile = substitute(l:tarfile, '^tarfile:', '', '')
+ endif
+
+ if ! filereadable(l:tarfile)
+ echo "ERROR: File not readable:" l:tarfile
+ return
+ endif
+
+ call s:Say("\" tar.vim version " . s:version)
+ call s:Say("\" Browsing tarfile " . l:tarfile)
+ call s:Say("\" Hit ENTER to view contents in new window")
+ call s:Say("")
+
+ silent execute "r!" . l:cat . "<'" . l:tarfile . "'| tar Ptf - "
+ 0d "blank line
+ /^$/1
+
+ setlocal readonly
+ setlocal nomodifiable
+ noremap <silent> <buffer> <cr> :call <SID>TarBrowseSelect()<cr>
+endfunction
+
+function! s:TarBrowseSelect()
+ let l:line = getline(".")
+
+ if (l:line =~ '^" ')
+ return
+ endif
+
+ if (l:line =~ '/$')
+ echo "Please specify a file, not a directory"
+ return
+ endif
+
+ let l:selection = "tarfile:" . b:tarfile . "/" . l:line
+ new
+ wincmd _
+ execute "e " . l:selection
+endfunction
+
+" kludge to deal with compressed archives
+function! s:TarCatCommand(tarfile)
+ if a:tarfile =~# '\.\(gz\|tgz\|Z\)$'
+ let l:cat = "gzip -d -c"
+ elseif a:tarfile =~# '\.bz2$'
+ let l:cat = "bzip2 -d -c"
+ else
+ let l:cat = "cat"
+ endif
+ return l:cat
+endfunction
+
+function! s:Say(string)
+ let @" = a:string
+ $ put
+endfunction
" Language: BIND 8.x configuration file
" Maintainer: glory hump <rnd@web-drive.ru>
" Last change: Mon May 21 04:51:01 SAMST 2001
+" Updated: by Martin Dalecki 2004-12-31
" Filenames: named.conf
-" URL: http://rnd.web-drive.ru/vim/syntax/named.vim
+" URL: http://rnd.web-drive.ru/vim/syntax/named.vim [DEFUNCT]
" $Id$
"
" NOTE
" BIND configuration file
syn match namedComment "//.*"
+syn match namedComment "#.*"
syn region namedComment start="/\*" end="\*/"
syn region namedString start=/"/ end=/"/ contained
-" --- omitted trailing semicolon FIXME
-syn match namedError /[^;{]$/
+" --- omitted trailing semicolon
+syn match namedError /[^;{#]$/
" --- top-level keywords
GTK_TESTTARGET = gui
### Motif GUI
-MOTIF_SRC = gui.c gui_motif.c gui_x11.c pty.c gui_beval.c
+MOTIF_SRC = gui.c gui_motif.c gui_x11.c pty.c gui_beval.c \
+ gui_xmdlg.c
MOTIF_OBJ = objects/gui.o objects/gui_motif.o objects/gui_x11.o \
- objects/pty.o objects/gui_beval.o
+ objects/pty.o objects/gui_beval.o \
+ objects/gui_xmdlg.o
MOTIF_DEFS = -DFEAT_GUI_MOTIF $(NARROW_PROTO)
MOTIF_IPATH = $(GUI_INC_LOC)
MOTIF_LIBS_DIR = $(GUI_LIB_LOC)
CARBONGUI_TESTARG = VIMPROG=../$(CARBONGUI_BUNDLE)/Contents/MacOS/$(VIMTARGET)
# All GUI files
-ALL_GUI_SRC = gui.c gui_gtk.c gui_gtk_f.c gui_motif.c gui_athena.c gui_gtk_x11.c gui_x11.c gui_at_sb.c gui_at_fs.c pty.c gui_kde.cc gui_kde_wid.cc gui_kde_x11.cc gui_kde_wid_moc.cc
-ALL_GUI_PRO = gui.pro gui_gtk.pro gui_motif.pro gui_athena.pro gui_gtk_x11.pro gui_x11.pro gui_w16.pro gui_w32.pro gui_amiga.pro gui_photon.pro
+ALL_GUI_SRC = gui.c gui_gtk.c gui_gtk_f.c gui_motif.c gui_xmdlg.c gui_athena.c gui_gtk_x11.c gui_x11.c gui_at_sb.c gui_at_fs.c pty.c gui_kde.cc gui_kde_wid.cc gui_kde_x11.cc gui_kde_wid_moc.cc
+ALL_GUI_PRO = gui.pro gui_gtk.pro gui_motif.pro gui_xmdlg.pro gui_athena.pro gui_gtk_x11.pro gui_x11.pro gui_w16.pro gui_w32.pro gui_amiga.pro gui_photon.pro
# }}}
objects/gui_motif.o: gui_motif.c
$(CCC) -o $@ gui_motif.c
+objects/gui_xmdlg.o: gui_xmdlg.c
+ $(CCC) -o $@ gui_xmdlg.c
+
objects/gui_x11.o: gui_x11.c
$(CCC) -o $@ gui_x11.c
return NULL;
}
+#if defined(FEAT_EVAL) || defined(PROTO)
/*
* Return the name of font "font" in allocated memory.
* We always use the default font.
{
return vim_strsave((char_u *)"default");
}
+#endif
void
gui_mch_set_font(GuiFont font)
return (GuiFont)font;
}
+#if defined(FEAT_EVAL) || defined(PROTO)
/*
* Return the name of font "font" in allocated memory.
*/
{
return vim_strsave(((VimFont *)font)->name);
}
+#endif
/*
* Set the current text font.
return (GuiFont) myFont;
}//}}}
+#if defined(FEAT_EVAL) || defined(PROTO)
/*
* Return the name of font "font" in allocated memory.
* Don't know how to get the actual name, thus use the provided name.
return NULL;
return vim_strsave(name);
}//}}}
+#endif
/*
* Set the current text font.
return font;
}
+#if defined(FEAT_EVAL) || defined(PROTO)
/*
* Return the name of font "font" in allocated memory.
* Don't know how to get the actual name, thus use the provided name.
return NULL;
return vim_strsave(name);
}
+#endif
/*
* Set the current text font.
static void gui_motif_menu_colors __ARGS((Widget id));
static void gui_motif_scroll_colors __ARGS((Widget id));
-#ifdef FEAT_MENU
-static void gui_motif_menu_fontlist __ARGS((Widget id));
-#endif
#if (XmVersion >= 1002)
# define STRING_TAG XmFONTLIST_DEFAULT_TAG
gui_drag_scrollbar(sb, value, dragging);
}
-
/*
* End of call-back routines
*/
+#ifndef LESSTIF_VERSION
+/*
+ * Implement three dimensional shading of insensitive labels.
+ * By Martin Dalecki.
+ */
+
+#include <Xm/XmP.h>
+#include <Xm/LabelP.h>
+
+static XtExposeProc old_label_expose = NULL;
+
+static void label_expose __ARGS((Widget _w, XEvent *_event, Region _region));
+
+ static void
+label_expose(_w, _event, _region)
+ Widget _w;
+ XEvent *_event;
+ Region _region;
+{
+ GC insensitiveGC;
+ XmLabelWidget lw = (XmLabelWidget)_w;
+ unsigned char label_type = XmSTRING;
+
+ XtVaGetValues(_w, XmNlabelType, &label_type, (XtPointer)0);
+
+ if (XtIsSensitive(_w) || label_type != XmSTRING)
+ (*old_label_expose)(_w, _event, _region);
+ else
+ {
+ XGCValues values;
+ XtGCMask mask;
+ XtGCMask dynamic;
+ XFontStruct *fs;
+
+ _XmFontListGetDefaultFont(lw->label.font, &fs);
+
+ /* FIXME: we should be doing the whole drawing ourself here. */
+ insensitiveGC = lw->label.insensitive_GC;
+
+ mask = GCForeground | GCBackground | GCGraphicsExposures;
+ dynamic = GCClipMask | GCClipXOrigin | GCClipYOrigin;
+ values.graphics_exposures = False;
+
+ if (fs != 0)
+ {
+ mask |= GCFont;
+ values.font = fs->fid;
+ }
+
+ if (lw->primitive.top_shadow_pixmap != None
+ && lw->primitive.top_shadow_pixmap != XmUNSPECIFIED_PIXMAP)
+ {
+ mask |= GCFillStyle | GCTile;
+ values.fill_style = FillTiled;
+ values.tile = lw->primitive.top_shadow_pixmap;
+ }
+
+ lw->label.TextRect.x += 1;
+ lw->label.TextRect.y += 1;
+ if (lw->label._acc_text != 0)
+ {
+ lw->label.acc_TextRect.x += 1;
+ lw->label.acc_TextRect.y += 1;
+ }
+
+ values.foreground = lw->primitive.top_shadow_color;
+ values.background = lw->core.background_pixel;
+
+ lw->label.insensitive_GC =
+ XtAllocateGC((Widget) lw, 0, mask, &values, dynamic, 0);
+ (*old_label_expose)(_w, _event, _region);
+ XtReleaseGC(_w, lw->label.insensitive_GC);
+
+ lw->label.TextRect.x -= 1;
+ lw->label.TextRect.y -= 1;
+ if (lw->label._acc_text != 0)
+ {
+ lw->label.acc_TextRect.x -= 1;
+ lw->label.acc_TextRect.y -= 1;
+ }
+
+ values.foreground = lw->primitive.bottom_shadow_color;
+ values.background = lw->core.background_pixel;
+
+ lw->label.insensitive_GC =
+ XtAllocateGC((Widget) lw, 0, mask, &values, dynamic, 0);
+ (*old_label_expose)(_w, _event, _region);
+ XtReleaseGC(_w, lw->label.insensitive_GC);
+
+ lw->label.insensitive_GC = insensitiveGC;
+ }
+}
+#endif
+
+
/*
* Create all the motif widgets necessary.
*/
void
gui_x11_create_widgets()
{
+#ifndef LESSTIF_VERSION
+ /*
+ * Install the 3D shade effect drawing routines.
+ */
+ if (old_label_expose == NULL)
+ {
+ old_label_expose = xmLabelWidgetClass->core_class.expose;
+ xmLabelWidgetClass->core_class.expose = label_expose;
+ }
+#endif
+
/*
* Start out by adding the configured border width into the border offset
*/
* Manage dialog centered on pointer. This could be used by the Athena code as
* well.
*/
-static void manage_centered __ARGS((Widget dialog_child));
-
-static void
+ void
manage_centered(dialog_child)
Widget dialog_child;
{
xms = XmStringCreate((char *)menu->dname, STRING_TAG);
XtSetArg(args[n], XmNlabelString, xms); n++;
-#ifndef FEAT_SUN_WORKSHOP
-
/* Without shadows one can't sense whatever the button has been
* pressed or not! However we wan't to save a bit of space...
+ * Need the highlightThickness to see the focus.
*/
- XtSetArg(args[n], XmNhighlightThickness, 0); n++;
+ XtSetArg(args[n], XmNhighlightThickness, 1); n++;
XtSetArg(args[n], XmNhighlightOnEnter, True); n++;
XtSetArg(args[n], XmNmarginWidth, 0); n++;
XtSetArg(args[n], XmNmarginHeight, 0); n++;
-#endif
+
if (menu->image == 0)
{
XtSetArg(args[n], XmNlabelType, XmSTRING); n++;
int n;
n = 0;
- XtSetArg(args[n], XmNshadowThickness, 1); n++;
XtSetArg(args[n], XmNminimum, 0); n++;
XtSetArg(args[n], XmNorientation,
(orient == SBAR_VERT) ? XmVERTICAL : XmHORIZONTAL); n++;
return(XtWindow(textArea));
}
+/*
+ * Look for a widget in the widget tree w, with a mnemonic matching keycode.
+ * When one is found, simulate a button press on that widget and give it the
+ * keyboard focus. If the mnemonic is on a label, look in the userData field
+ * of the label to see if it points to another widget, and give that the focus.
+ */
+ static void
+do_mnemonic(Widget w, unsigned int keycode)
+{
+ WidgetList children;
+ int numChildren, i;
+ Boolean isMenu;
+ KeySym mnemonic = '\0';
+ char mneString[2];
+ Widget userData;
+ unsigned char rowColType;
+
+ if (XtIsComposite(w))
+ {
+ if (XtClass(w) == xmRowColumnWidgetClass)
+ {
+ XtVaGetValues(w, XmNrowColumnType, &rowColType, 0);
+ isMenu = (rowColType != (unsigned char)XmWORK_AREA);
+ }
+ else
+ isMenu = False;
+ if (!isMenu)
+ {
+ XtVaGetValues(w, XmNchildren, &children, XmNnumChildren,
+ &numChildren, 0);
+ for (i = 0; i < numChildren; i++)
+ do_mnemonic(children[i], keycode);
+ }
+ }
+ else
+ {
+ XtVaGetValues(w, XmNmnemonic, &mnemonic, 0);
+ if (mnemonic != '\0')
+ {
+ mneString[0] = mnemonic;
+ mneString[1] = '\0';
+ if (XKeysymToKeycode(XtDisplay(XtParent(w)),
+ XStringToKeysym(mneString)) == keycode)
+ {
+ if (XtClass(w) == xmLabelWidgetClass
+ || XtClass(w) == xmLabelGadgetClass)
+ {
+ XtVaGetValues(w, XmNuserData, &userData, 0);
+ if (userData != NULL && XtIsWidget(userData))
+ XmProcessTraversal(userData, XmTRAVERSE_CURRENT);
+ }
+ else
+ {
+ XKeyPressedEvent keyEvent;
+
+ XmProcessTraversal(w, XmTRAVERSE_CURRENT);
+
+ memset((char *) &keyEvent, 0, sizeof(XKeyPressedEvent));
+ keyEvent.type = KeyPress;
+ keyEvent.serial = 1;
+ keyEvent.send_event = True;
+ keyEvent.display = XtDisplay(w);
+ keyEvent.window = XtWindow(w);
+ XtCallActionProc(w, "Activate", (XEvent *) & keyEvent,
+ NULL, 0);
+ }
+ }
+ }
+ }
+}
+
+/*
+ * Callback routine for dialog mnemonic processing.
+ */
+/*ARGSUSED*/
+ static void
+mnemonic_event(Widget w, XtPointer call_data, XKeyEvent *event)
+{
+ do_mnemonic(w, event->keycode);
+}
+
+
+/*
+ * Search the widget tree under w for widgets with mnemonics. When found, add
+ * a passive grab to the dialog widget for the mnemonic character, thus
+ * directing mnemonic events to the dialog widget.
+ */
+ static void
+add_mnemonic_grabs(Widget dialog, Widget w)
+{
+ char mneString[2];
+ WidgetList children;
+ int numChildren, i;
+ Boolean isMenu;
+ KeySym mnemonic = '\0';
+ unsigned char rowColType;
+
+ if (XtIsComposite(w))
+ {
+ if (XtClass(w) == xmRowColumnWidgetClass)
+ {
+ XtVaGetValues(w, XmNrowColumnType, &rowColType, 0);
+ isMenu = (rowColType != (unsigned char)XmWORK_AREA);
+ }
+ else
+ isMenu = False;
+ if (!isMenu)
+ {
+ XtVaGetValues(w, XmNchildren, &children, XmNnumChildren,
+ &numChildren, 0);
+ for (i = 0; i < numChildren; i++)
+ add_mnemonic_grabs(dialog, children[i]);
+ }
+ }
+ else
+ {
+ XtVaGetValues(w, XmNmnemonic, &mnemonic, 0);
+ if (mnemonic != '\0')
+ {
+ mneString[0] = mnemonic;
+ mneString[1] = '\0';
+ XtGrabKey(dialog, XKeysymToKeycode(XtDisplay(dialog),
+ XStringToKeysym(mneString)),
+ Mod1Mask, True, GrabModeAsync, GrabModeAsync);
+ }
+ }
+}
+
+/*
+ * Add a handler for mnemonics in a dialog. Motif itself only handles
+ * mnemonics in menus. Mnemonics added or changed after this call will be
+ * ignored.
+ *
+ * To add a mnemonic to a text field or list, set the XmNmnemonic resource on
+ * the appropriate label and set the XmNuserData resource of the label to the
+ * widget to get the focus when the mnemonic is typed.
+ */
+ static void
+activate_dialog_mnemonics(Widget dialog)
+{
+ if (!dialog)
+ return;
+
+ XtAddEventHandler(dialog, KeyPressMask, False,
+ (XtEventHandler) mnemonic_event, (XtPointer) NULL);
+ add_mnemonic_grabs(dialog, dialog);
+}
+
+/*
+ * Removes the event handler and key-grabs for dialog mnemonic handling.
+ */
+ static void
+suppress_dialog_mnemonics(Widget dialog)
+{
+ if (!dialog)
+ return;
+
+ XtUngrabKey(dialog, AnyKey, Mod1Mask);
+ XtRemoveEventHandler(dialog, KeyPressMask, False,
+ (XtEventHandler) mnemonic_event, (XtPointer) NULL);
+}
+
+#if defined(FEAT_BROWSE) || defined(FEAT_GUI_DIALOG)
+static void set_fontlist __ARGS((Widget wg));
+
+/*
+ * Use the 'guifont' or 'guifontset' as a fontlist for a dialog widget.
+ */
+ static void
+set_fontlist(id)
+ Widget id;
+{
+ XmFontList fl;
+
+#ifdef FONTSET_ALWAYS
+ if (gui.fontset != NOFONTSET) {
+ fl = gui_motif_fontset2fontlist((XFontSet *)&gui.fontset);
+ if (fl != NULL)
+ {
+ if (XtIsManaged(id))
+ {
+ XtUnmanageChild(id);
+ XtVaSetValues(id, XmNfontList, fl, NULL);
+ /* We should force the widget to recalculate it's
+ * geometry now. */
+ XtManageChild(id);
+ }
+ else
+ XtVaSetValues(id, XmNfontList, fl, NULL);
+ XmFontListFree(fl);
+ }
+ }
+#else
+ if (gui.norm_font != NOFONT) {
+ fl = gui_motif_create_fontlist((XFontStruct *)gui.norm_font);
+ if (fl != NULL)
+ {
+ if (XtIsManaged(id))
+ {
+ XtUnmanageChild(id);
+ XtVaSetValues(id, XmNfontList, fl, NULL);
+ /* We should force the widget to recalculate it's
+ * geometry now. */
+ XtManageChild(id);
+ }
+ else
+ XtVaSetValues(id, XmNfontList, fl, NULL);
+ XmFontListFree(fl);
+ }
+ }
+#endif
+}
+#endif
#if defined(FEAT_BROWSE) || defined(PROTO)
* - equalize the messages between different GUI implementations as far as
* possible.
*/
-static void set_predefined_label __ARGS((Widget parent, String name, char * new_label));
+static void set_predefined_label __ARGS((Widget parent, String name, char *new_label));
static void
set_predefined_label(parent, name, new_label)
- Widget parent;
- String name;
- char * new_label;
+ Widget parent;
+ String name;
+ char *new_label;
{
- XmString str;
- Widget w;
+ XmString str;
+ Widget w;
+ char_u *p, *next;
+ KeySym mnemonic = NUL;
w = XtNameToWidget(parent, name);
if (!w)
return;
- str = XmStringCreate(new_label, STRING_TAG);
+ p = vim_strsave((char_u *)new_label);
+ if (p == NULL)
+ return;
+ for (next = p; *next; ++next)
+ {
+ if (*next == DLG_HOTKEY_CHAR)
+ {
+ int len = STRLEN(next);
- if (str)
+ if (len > 0)
+ {
+ mch_memmove(next, next + 1, len);
+ mnemonic = next[0];
+ }
+ }
+ }
+
+ str = XmStringCreate((char *)p, STRING_TAG);
+ vim_free(p);
+
+ if (str != NULL)
{
- XtVaSetValues(w, XmNlabelString, str, NULL);
+ XtVaSetValues(w,
+ XmNlabelString, str,
+ XmNmnemonic, mnemonic,
+ NULL);
XmStringFree(str);
}
+ gui_motif_menu_fontlist(w);
+}
+
+static void
+set_predefined_fontlist(parent, name)
+ Widget parent;
+ String name;
+{
+ Widget w;
+ w = XtNameToWidget(parent, name);
+
+ if (!w)
+ return;
+
+ set_fontlist(w);
}
/*
char_u *pattern;
char_u *tofree = NULL;
- dialog_wgt = XmCreateFileSelectionDialog(vimShell, (char *)title, NULL, 0);
+ /* There a difference between the resource name and value, Therefore, we
+ * avoid to (ab-)use the (maybe internationalized!) dialog title as a
+ * dialog name.
+ */
+
+ dialog_wgt = XmCreateFileSelectionDialog(vimShell, "browseDialog", NULL, 0);
if (initdir == NULL || *initdir == NUL)
{
XmNdialogTitle, XmRString, (char *)title, STRLEN(title) + 1,
NULL);
- set_predefined_label(dialog_wgt, "Apply", _("Filter"));
- set_predefined_label(dialog_wgt, "Cancel", _("Cancel"));
+ set_predefined_label(dialog_wgt, "Apply", _("&Filter"));
+ set_predefined_label(dialog_wgt, "Cancel", _("&Cancel"));
set_predefined_label(dialog_wgt, "Dir", _("Directories"));
set_predefined_label(dialog_wgt, "FilterLabel", _("Filter"));
- set_predefined_label(dialog_wgt, "Help", _("Help"));
+ set_predefined_label(dialog_wgt, "Help", _("&Help"));
set_predefined_label(dialog_wgt, "Items", _("Files"));
- set_predefined_label(dialog_wgt, "OK", _("OK"));
+ set_predefined_label(dialog_wgt, "OK", _("&OK"));
set_predefined_label(dialog_wgt, "Selection", _("Selection"));
+ /* This is to save us from silly external settings using not fixed with
+ * fonts for file selection.
+ */
+ set_predefined_fontlist(dialog_wgt, "DirListSW.DirList");
+ set_predefined_fontlist(dialog_wgt, "ItemsListSW.ItemsList");
+
gui_motif_menu_colors(dialog_wgt);
if (gui.scroll_bg_pixel != INVALCOLOR)
XtVaSetValues(dialog_wgt, XmNtroughColor, gui.scroll_bg_pixel, NULL);
(unsigned char)XmDIALOG_HELP_BUTTON));
manage_centered(dialog_wgt);
+ activate_dialog_mnemonics(dialog_wgt);
/* sit in a loop until the dialog box has gone away */
do
(XtInputMask)XtIMAll);
} while (XtIsManaged(dialog_wgt));
+ suppress_dialog_mnemonics(dialog_wgt);
XtDestroyWidget(dialog_wgt);
vim_free(tofree);
dialogStatus = (int)(long)client_data + 1;
}
-static void gui_motif_set_fontlist __ARGS((Widget wg));
-
-/*
- * Use the 'guifont' or 'guifontset' as a fontlist for a dialog widget.
- */
- static void
-gui_motif_set_fontlist(wg)
- Widget wg;
-{
- XmFontList fl;
-
- fl =
-#ifdef FEAT_XFONTSET
- gui.fontset != NOFONTSET ?
- gui_motif_fontset2fontlist((XFontSet *)&gui.fontset)
- :
-#endif
- gui_motif_create_fontlist((XFontStruct *)gui.norm_font);
- if (fl != NULL)
- {
- XtVaSetValues(wg, XmNfontList, fl, NULL);
- XmFontListFree(fl);
- }
-}
-
#ifdef HAVE_XPM
static Widget create_pixmap_label(Widget parent, String name, char **data, ArgList args, Cardinal arg);
XtAppContext app;
XmString label;
int butcount;
+ Widget w;
Widget dialogform = NULL;
Widget form = NULL;
Widget dialogtextfield = NULL;
p = buts;
for (butcount = 0; *p; ++butcount)
{
+ KeySym mnemonic = NUL;
+
for (next = p; *next; ++next)
{
if (*next == DLG_HOTKEY_CHAR)
- mch_memmove(next, next + 1, STRLEN(next));
+ {
+ int len = STRLEN(next);
+
+ if (len > 0)
+ {
+ mch_memmove(next, next + 1, len);
+ mnemonic = next[0];
+ }
+ }
if (*next == DLG_BUTTON_SEP)
{
*next++ = NUL;
buttons[butcount] = XtVaCreateManagedWidget("button",
xmPushButtonWidgetClass, dialogform,
XmNlabelString, label,
+ XmNmnemonic, mnemonic,
XmNbottomAttachment, XmATTACH_FORM,
XmNbottomOffset, 4,
XmNshowAsDefault, butcount == dfltbutton - 1,
XmNdefaultButtonShadowThickness, 1,
NULL);
XmStringFree(label);
+ gui_motif_menu_fontlist(buttons[butcount]);
/* Layout properly. */
XmNbottomAttachment, XmATTACH_FORM,
NULL);
- gui_motif_set_fontlist(dialogtextfield);
+ set_fontlist(dialogtextfield);
XmTextFieldSetString(dialogtextfield, (char *)textfield);
XtManageChild(dialogtextfield);
XtAddEventHandler(dialogtextfield, KeyPressMask, False,
XtManageChild(dialogpixmap);
#endif
- /* Create the dialog message. */
- label = XmStringLtoRCreate((char *)message, STRING_TAG);
+ /* Create the dialog message.
+ * Since LessTif is apparently having problems with the creation of
+ * properly localized string, we use LtoR here. The symptom is that the
+ * string sill not show properly in multiple lines as it does in native
+ * Motif.
+ */
+ label = XmStringCreateLtoR((char *)message, STRING_TAG);
if (label == NULL)
return -1;
- (void)XtVaCreateManagedWidget("dialogMessage",
+ w = XtVaCreateManagedWidget("dialogMessage",
xmLabelGadgetClass, form,
XmNlabelString, label,
+ XmNalignment, XmALIGNMENT_BEGINNING,
XmNtopAttachment, XmATTACH_FORM,
XmNtopOffset, 8,
#ifdef HAVE_XPM
XmNbottomOffset, 8,
NULL);
XmStringFree(label);
+ set_fontlist(w);
if (textfield != NULL)
{
NULL);
manage_centered(dialogform);
+ activate_dialog_mnemonics(dialogform);
if (textfield != NULL && *textfield != NUL)
{
}
}
+ suppress_dialog_mnemonics(dialogform);
XtDestroyWidget(dialogform);
return dialogStatus;
XmString xms;
xms = XmStringCreate((char *)s, STRING_TAG);
- XtVaSetValues(footer, XmNlabelString, xms, NULL);
- XmStringFree(xms);
+ if (xms != NULL)
+ {
+ XtVaSetValues(footer, XmNlabelString, xms, NULL);
+ XmStringFree(xms);
+ }
}
#endif
XtVaSetValues(id, XmNforeground, gui.scroll_fg_pixel, NULL);
}
-#ifdef FEAT_MENU
/*
* Set the fontlist for Widget "id" to use gui.menu_fontset or gui.menu_font.
*/
- static void
+/*ARGSUSED*/
+ void
gui_motif_menu_fontlist(id)
Widget id;
{
+#ifdef FEAT_MENU
#ifdef FONTSET_ALWAYS
if (gui.menu_fontset != NOFONTSET)
{
}
}
#endif
+#endif
}
-#endif
/*
* We don't create it twice for the sake of speed.
{
SharedFindReplace *cd = (SharedFindReplace *)client_data;
- if (cd != NULL)
+ if (cd != NULL) {
+ /* suppress_dialog_mnemonics(cd->dialog); */
cd->dialog = (Widget)0;
+ }
}
/*ARGSUSED*/
XtUnmanageChild(frdp->dialog);
}
+ static void
+set_label(w, label)
+ Widget w;
+ char_u *label;
+{
+ XmString str;
+ char_u *p, *next;
+ KeySym mnemonic = NUL;
+
+ if (!w)
+ return;
+
+ p = vim_strsave(label);
+ if (p == NULL)
+ return;
+ for (next = p; *next; ++next)
+ {
+ if (*next == DLG_HOTKEY_CHAR)
+ {
+ int len = STRLEN(next);
+
+ if (len > 0)
+ {
+ mch_memmove(next, next + 1, len);
+ mnemonic = next[0];
+ }
+ }
+ }
+
+ str = XmStringCreateSimple((char *)p);
+ vim_free(p);
+ if (str)
+ {
+ XtVaSetValues(w,
+ XmNlabelString, str,
+ XmNmnemonic, mnemonic,
+ NULL);
+ XmStringFree(str);
+ }
+ gui_motif_menu_fontlist(w);
+}
+
static void
find_replace_dialog_create(arg, do_replace)
char_u *arg;
/* If the dialog already exists, just raise it. */
if (frdp->dialog)
{
+ gui_motif_synch_fonts();
+
/* If the window is already up, just pop it to the top */
if (XtIsManaged(frdp->dialog))
XMapRaised(XtDisplay(frdp->dialog),
XmNbottomOffset, 4,
NULL);
- str = XmStringCreateSimple(_("Find Next"));
frdp->find = XtVaCreateManagedWidget("findButton",
xmPushButtonWidgetClass, button_form,
- XmNlabelString, str,
XmNsensitive, True,
XmNtopAttachment, XmATTACH_FORM,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
NULL);
- XmStringFree(str);
+ set_label(frdp->find, _("Find &Next"));
XtAddCallback(frdp->find, XmNactivateCallback,
find_replace_callback,
if (do_replace)
{
- str = XmStringCreateSimple(_("Replace"));
frdp->replace = XtVaCreateManagedWidget("replaceButton",
xmPushButtonWidgetClass, button_form,
- XmNlabelString, str,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, frdp->find,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
NULL);
- XmStringFree(str);
+ set_label(frdp->replace, _("&Replace"));
XtAddCallback(frdp->replace, XmNactivateCallback,
find_replace_callback, (XtPointer)FRD_REPLACE);
- str = XmStringCreateSimple(_("Replace All"));
frdp->all = XtVaCreateManagedWidget("replaceAllButton",
xmPushButtonWidgetClass, button_form,
- XmNlabelString, str,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, frdp->replace,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
NULL);
- XmStringFree(str);
+ set_label(frdp->all, _("Replace &All"));
XtAddCallback(frdp->all, XmNactivateCallback,
find_replace_callback, (XtPointer)FRD_REPLACEALL);
- str = XmStringCreateSimple(_("Undo"));
frdp->undo = XtVaCreateManagedWidget("undoButton",
xmPushButtonWidgetClass, button_form,
- XmNlabelString, str,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, frdp->all,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
NULL);
- XmStringFree(str);
+ set_label(frdp->undo, _("&Undo"));
XtAddCallback(frdp->undo, XmNactivateCallback,
find_replace_callback, (XtPointer)FRD_UNDO);
}
- str = XmStringCreateSimple(_("Cancel"));
frdp->cancel = XtVaCreateManagedWidget("closeButton",
xmPushButtonWidgetClass, button_form,
- XmNlabelString, str,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
XmNbottomAttachment, XmATTACH_FORM,
NULL);
- XmStringFree(str);
+ set_label(frdp->cancel, _("&Cancel"));
XtAddCallback(frdp->cancel, XmNactivateCallback,
find_replace_dismiss_callback, frdp);
+ gui_motif_menu_fontlist(frdp->cancel);
XtManageChild(button_form);
XmNtopOffset, 4,
NULL);
XmStringFree(str);
+ gui_motif_menu_fontlist(label_what);
frdp->what = XtVaCreateManagedWidget("whatText",
xmTextFieldWidgetClass, input_form,
XmNbottomAttachment, XmATTACH_FORM,
NULL);
XmStringFree(str);
+ gui_motif_menu_fontlist(label_with);
/*
* Make the entry activation only change the input focus onto the
{
Widget radio_box;
+ Widget w;
frame = XtVaCreateWidget("directionFrame",
xmFrameWidgetClass, frdp->dialog,
NULL);
str = XmStringCreateSimple(_("Direction"));
- (void)XtVaCreateManagedWidget("directionFrameLabel",
+ w = XtVaCreateManagedWidget("directionFrameLabel",
xmLabelGadgetClass, frame,
XmNlabelString, str,
XmNchildHorizontalAlignment, XmALIGNMENT_BEGINNING,
XmNchildType, XmFRAME_TITLE_CHILD,
NULL);
XmStringFree(str);
+ gui_motif_menu_fontlist(w);
radio_box = XmCreateRadioBox(frame, "radioBox",
(ArgList)NULL, 0);
XmNset, False,
NULL);
XmStringFree(str);
+ gui_motif_menu_fontlist(frdp->up);
str = XmStringCreateSimple(_("Down"));
frdp->down = XtVaCreateManagedWidget("downRadioButton",
XmNset, True,
NULL);
XmStringFree(str);
+ gui_motif_menu_fontlist(frdp->down);
XtManageChild(radio_box);
XtManageChild(frame);
XmNset, mcase,
NULL);
XmStringFree(str);
+ gui_motif_menu_fontlist(frdp->wword);
+ gui_motif_menu_fontlist(frdp->mcase);
XtManageChild(toggle_form);
XmTextFieldSetString(frdp->what, (char *)entry_text);
vim_free(entry_text);
- XtManageChild(frdp->dialog);
+ gui_motif_synch_fonts();
+
+ manage_centered(frdp->dialog);
+ activate_dialog_mnemonics(frdp->dialog);
XmProcessTraversal(frdp->what, XmTRAVERSE_CURRENT);
}
find_replace_dialog_create(eap->arg, TRUE);
}
+
+/*
+ * Synchronize all gui elements, which are dependant upon the
+ * main text font used. Those are in esp. the find/replace dialogs.
+ * If you don't understand why this should be needed, please try to
+ * search for "piê¶æ" in iso8859-2.
+ */
+ void
+gui_motif_synch_fonts(void)
+{
+ SharedFindReplace *frdp;
+ int do_replace;
+ XFontStruct *font;
+ XmFontList font_list;
+
+ /* FIXME: Unless we find out how to create a XmFontList from a XFontSet,
+ * we just give up here on font synchronization. */
+ font = (XFontStruct *)gui.norm_font;
+ if (font == NULL)
+ return;
+
+ font_list = gui_motif_create_fontlist(font);
+
+ /* OK this loop is a bit tricky... */
+ for (do_replace = 0; do_replace <= 1; ++do_replace)
+ {
+ frdp = (do_replace) ? (&repl_widgets) : (&find_widgets);
+ if (frdp->dialog)
+ {
+ XtVaSetValues(frdp->what, XmNfontList, font_list, NULL);
+ if (do_replace)
+ XtVaSetValues(frdp->with, XmNfontList, font_list, NULL);
+ }
+ }
+
+ XmFontListFree(font_list);
+}
return( FAIL );
}
+#if defined(FEAT_EVAL) || defined(PROTO)
/*
* Return the name of font "font" in allocated memory.
* Don't know how to get the actual name, thus use the provided name.
return NULL;
return vim_strsave(name);
}
+#endif
void
gui_mch_set_font(GuiFont font)
return handle;
}
+#if defined(FEAT_EVAL) || defined(PROTO)
/*
* Return the name of font "font" in allocated memory.
* Don't know how to get the actual name, thus use the provided name.
return NULL;
return vim_strsave(name);
}
+#endif
/*
* Set the current text font.
return font;
}
+#if defined(FEAT_EVAL) || defined(PROTO)
/*
* Return the name of font "font" in allocated memory.
* Don't know how to get the actual name, thus use the provided name.
return NULL;
return vim_strsave(name);
}
+#endif
void
gui_mch_free_font(GuiFont font)
--- /dev/null
+/* vi:set ts=8 sts=4 sw=4:
+ *
+ * VIM - Vi IMproved by Bram Moolenaar
+ * GUI/Motif support by Robert Webb
+ *
+ * Do ":help uganda" in Vim to read copying and usage conditions.
+ * Do ":help credits" in Vim to see a list of people who contributed.
+ * See README.txt for an overview of the Vim source code.
+ */
+
+/*
+ * (C) 2001 by Marcin Dalecki <dalecki@evision.ag>
+ *
+ * Implementation of dialogue functions for the Motif GUI variant.
+ */
+
+#include <Xm/Form.h>
+#include <Xm/PushBG.h>
+#include <Xm/Text.h>
+#include <Xm/TextF.h>
+#include <Xm/Label.h>
+#include <Xm/Frame.h>
+#include <Xm/LabelG.h>
+#include <Xm/ToggleBG.h>
+#include <Xm/SeparatoG.h>
+#include <Xm/DialogS.h>
+#include <Xm/List.h>
+#include <Xm/RowColumn.h>
+#include <Xm/AtomMgr.h>
+#include <Xm/Protocols.h>
+
+#include <X11/keysym.h>
+#include <X11/Xatom.h>
+#include <X11/StringDefs.h>
+#include <X11/Intrinsic.h>
+
+#include "vim.h"
+
+extern Widget vimShell;
+
+#ifdef FEAT_MENU
+# define apply_fontlist(w) gui_motif_menu_fontlist(w)
+#else
+# define apply_fontlist(w)
+#endif
+
+/****************************************************************************
+ * Font selection dialogue implementation.
+ */
+
+static char wild[3] = "*";
+
+/*
+ * FIXME: This is a generic function, which should be used throughout the whole
+ * application.
+ *
+ * Add close_callback, which will be called when the user selects close from
+ * the window menu. The close menu item usually activates f.kill which sends a
+ * WM_DELETE_WINDOW protocol request for the window.
+ */
+
+ static void
+add_cancel_action(Widget shell, XtCallbackProc close_callback, void *arg)
+{
+ static Atom wmp_atom = 0;
+ static Atom dw_atom = 0;
+ Display *display = XtDisplay(shell);
+
+ /* deactivate the built-in delete response of killing the application */
+ XtVaSetValues(shell, XmNdeleteResponse, XmDO_NOTHING, 0);
+
+ /* add a delete window protocol callback instead */
+ if (!dw_atom)
+ {
+ wmp_atom = XmInternAtom(display, "WM_PROTOCOLS", True);
+ dw_atom = XmInternAtom(display, "WM_DELETE_WINDOW", True);
+ }
+ XmAddProtocolCallback(shell, wmp_atom, dw_atom, close_callback, arg);
+}
+
+#define MAX_FONTS 65535
+#define MAX_FONT_NAME_LEN 256
+#define MAX_ENTRIES_IN_LIST 5000
+#define MAX_DISPLAY_SIZE 150
+#define TEMP_BUF_SIZE 256
+
+enum ListSpecifier
+{
+ ENCODING,
+ NAME,
+ STYLE,
+ SIZE,
+ NONE
+};
+
+typedef struct _SharedFontSelData
+{
+ Widget dialog;
+ Widget ok;
+ Widget cancel;
+ Widget encoding_pulldown;
+ Widget encoding_menu;
+ Widget list[NONE];
+ Widget name;
+ Widget sample;
+ char **names; /* font name array of arrays */
+ int num; /* number of font names */
+ String sel[NONE]; /* selection category */
+ Boolean in_pixels; /* toggle state - size in pixels */
+ char *font_name; /* current font name */
+ XFontStruct *old; /* font data structure for sample display */
+ XmFontList old_list; /* font data structure for sample display */
+ Boolean exit; /* used for program exit control */
+} SharedFontSelData;
+
+/*
+ * Checking access to the font name array for validity.
+ */
+ static char *
+fn(SharedFontSelData *data, int i)
+{
+ /* Assertion checks: */
+ if (data->num < 0)
+ abort();
+ if (i >= data->num)
+ i = data->num - 1;
+ if (i < 0)
+ i = 0;
+
+ return data->names[i];
+}
+
+/*
+ * Get a specific substring from a font name.
+ */
+ static void
+get_part(char *in, int pos, char *out)
+{
+ int i;
+ int j;
+
+ *out = '\0';
+
+ for (i = 0; (pos > 0) && (in[i] != '\0'); ++i)
+ if (in[i] == '-')
+ pos--;
+
+ if (in[i] == '\0')
+ return;
+
+ for (j = 0; (in[i] != '-') && (in[i] != '\0'); ++i, ++j)
+ out[j] = in[i];
+ out[j] = '\0';
+}
+
+/*
+ * Given a font name this function returns the part used in the first
+ * scroll list.
+ */
+ static void
+name_part(char *font, char *buf)
+{
+ char buf2[TEMP_BUF_SIZE];
+ char buf3[TEMP_BUF_SIZE];
+
+ get_part(font, 2, buf2);
+ get_part(font, 1, buf3);
+
+ if (strlen(buf3))
+ sprintf(buf, "%s (%s)", buf2, buf3);
+ else
+ sprintf(buf, "%s", buf2);
+}
+
+/*
+ * Given a font name this function returns the part used in the second scroll list.
+ */
+ static void
+style_part(char *font, char *buf)
+{
+ char buf2[TEMP_BUF_SIZE];
+ char buf3[TEMP_BUF_SIZE];
+
+ get_part(font, 3, buf3);
+ get_part(font, 5, buf2);
+
+ if (!strcmp(buf2, "normal") && !strcmp(buf2, "Normal")
+ && !strcmp(buf2, "NORMAL"))
+ sprintf(buf, "%s %s", buf3, buf2);
+ else
+ strcpy(buf, buf3);
+
+ get_part(font, 6, buf2);
+
+ if (buf2[0] != '\0')
+ sprintf(buf3, "%s %s", buf, buf2);
+ else
+ strcpy(buf3, buf);
+
+ get_part(font, 4, buf2);
+
+ if (!strcmp(buf2, "o") || !strcmp(buf2, "O"))
+ sprintf(buf, "%s oblique", buf3);
+ else if (!strcmp(buf2, "i") || !strcmp(buf2, "I"))
+ sprintf(buf, "%s italic", buf3);
+
+ if (!strcmp(buf, " "))
+ strcpy(buf, "-");
+}
+
+/*
+ * Given a font name this function returns the part used in the third
+ * scroll list.
+ */
+ static void
+size_part(char *font, char *buf, int inPixels)
+{
+ int size;
+ float temp;
+
+ *buf = '\0';
+
+ if (inPixels)
+ {
+ get_part(font, 7, buf);
+ if (strlen(buf) > 0)
+ {
+ size = atoi(buf);
+ sprintf(buf, "%3d", size);
+ }
+ }
+ else
+ {
+ get_part(font, 8, buf);
+ if (strlen(buf) > 0)
+ {
+ size = atoi(buf);
+ temp = (float)size / 10.0;
+ size = temp;
+ if (buf[strlen(buf) - 1] == '0')
+ sprintf(buf, "%3d", size);
+ else
+ sprintf(buf, "%4.1f", temp);
+ }
+ }
+}
+
+/*
+ * Given a font name this function returns the part used in the choice menu.
+ */
+ static void
+encoding_part(char *font, char *buf)
+{
+ char buf1[TEMP_BUF_SIZE];
+ char buf2[TEMP_BUF_SIZE];
+
+ *buf = '\0';
+
+ get_part(font, 13, buf1);
+ get_part(font, 14, buf2);
+
+ if (strlen(buf1) > 0 && strlen(buf2))
+ sprintf(buf, "%s-%s", buf1, buf2);
+ if (!strcmp(buf, " "))
+ strcpy(buf, "-");
+}
+
+/*
+ * Inserts a string into correct sorted position in a list.
+ */
+ static void
+add_to_list(char **buf, char *item, int *count)
+{
+ int i;
+ int j;
+
+ if (*count == MAX_ENTRIES_IN_LIST)
+ return;
+
+ /* avoid duplication */
+ for (i = 0; i < *count; ++i)
+ {
+ if (!strcmp(buf[i], item))
+ return;
+ }
+
+ /* find order place, but make sure that wild card comes first */
+ if (!strcmp(item, wild))
+ i = 0;
+ else
+ for (i = 0; i < *count; ++i)
+ if (strcmp(buf[i], item) > 0 && strcmp(buf[i], wild))
+ break;
+
+ /* now insert the item */
+ for (j = *count; j > i; --j)
+ buf[j] = buf[j-1];
+ buf[i] = XtNewString(item);
+
+ ++(*count);
+}
+
+/*
+ * True if the font matches some field.
+ */
+ static Boolean
+match(SharedFontSelData *data, enum ListSpecifier l, int i)
+{
+ char buf[TEMP_BUF_SIZE];
+
+ /* An empty selection or a wild card matches anything.
+ */
+ if (!data->sel[l] || !strcmp(data->sel[l], wild))
+ return True;
+
+ /* chunk out the desired part... */
+ switch (l)
+ {
+ case ENCODING:
+ encoding_part(fn(data, i), buf);
+ break;
+
+ case NAME:
+ name_part(fn(data, i), buf);
+ break;
+
+ case STYLE:
+ style_part(fn(data, i), buf);
+ break;
+
+ case SIZE:
+ size_part(fn(data, i), buf, data->in_pixels);
+ break;
+ default:
+ ;
+ }
+
+ /* ...and chew it now */
+
+ return !strcmp(buf, data->sel[l]);
+}
+
+ static Boolean
+proportional(char *font)
+{
+ char buf[TEMP_BUF_SIZE];
+
+ get_part(font, 11, buf);
+
+ return !strcmp(buf, "p") || !strcmp(buf, "P");
+}
+
+
+static void encoding_callback(Widget w, SharedFontSelData *data,
+ XtPointer dummy);
+
+/*
+ * Parse through the fontlist data and set up the three scroll lists. The fix
+ * parameter can be used to exclude a list from any changes. This is used for
+ * updates after selections caused by the users actions.
+ */
+ static void
+fill_lists(enum ListSpecifier fix, SharedFontSelData *data)
+{
+ char *list[NONE][MAX_ENTRIES_IN_LIST];
+ int count[NONE];
+ char buf[TEMP_BUF_SIZE];
+ XmString items[MAX_ENTRIES_IN_LIST];
+ int i;
+ int index;
+
+ for (index = (int)ENCODING; index < (int)NONE; ++index)
+ count[index] = 0;
+
+ /* First we insert the wild char into every single list. */
+ if (fix != ENCODING)
+ add_to_list(list[ENCODING], wild, &count[ENCODING]);
+ if (fix != NAME)
+ add_to_list(list[NAME], wild, &count[NAME]);
+ if (fix != STYLE)
+ add_to_list(list[STYLE], wild, &count[STYLE]);
+ if (fix != SIZE)
+ add_to_list(list[SIZE], wild, &count[SIZE]);
+
+ for (i = 0; i < data->num && i < MAX_ENTRIES_IN_LIST; i++)
+ {
+ if (proportional(fn(data, i)))
+ continue;
+
+ if (fix != ENCODING
+ && match(data, NAME, i)
+ && match(data, STYLE, i)
+ && match(data, SIZE, i))
+ {
+ encoding_part(fn(data, i), buf);
+ add_to_list(list[ENCODING], buf, &count[ENCODING]);
+ }
+
+ if (fix != NAME
+ && match(data, ENCODING, i)
+ && match(data, STYLE, i)
+ && match(data, SIZE, i))
+ {
+ name_part(fn(data, i), buf);
+ add_to_list(list[NAME], buf, &count[NAME]);
+ }
+
+ if (fix != STYLE
+ && match(data, ENCODING, i)
+ && match(data, NAME, i)
+ && match(data, SIZE, i))
+ {
+ style_part(fn(data, i), buf);
+ add_to_list(list[STYLE], buf, &count[STYLE]);
+ }
+
+ if (fix != SIZE
+ && match(data, ENCODING, i)
+ && match(data, NAME, i)
+ && match(data, STYLE, i))
+ {
+ size_part(fn(data, i), buf, data->in_pixels);
+ add_to_list(list[SIZE], buf, &count[SIZE]);
+ }
+ }
+
+ /*
+ * And now do the preselection in all lists where there was one:
+ */
+
+ if (fix != ENCODING)
+ {
+ Cardinal n_items;
+ WidgetList children;
+ Widget selected_button = 0;
+
+ /* Get and update the current button list. */
+ XtVaGetValues(data->encoding_pulldown,
+ XmNchildren, &children,
+ XmNnumChildren, &n_items,
+ NULL);
+
+ for (i = 0; i < count[ENCODING]; ++i)
+ {
+ Widget button;
+
+ items[i] = XmStringCreateLocalized(list[ENCODING][i]);
+
+ if (i < n_items)
+ {
+ /* recycle old button */
+ XtVaSetValues(children[i],
+ XmNlabelString, items[i],
+ XmNuserData, i,
+ NULL);
+ button = children[i];
+ }
+ else
+ {
+ /* create a new button */
+ button = XtVaCreateManagedWidget("button",
+ xmPushButtonGadgetClass,
+ data->encoding_pulldown,
+ XmNlabelString, items[i],
+ XmNuserData, i,
+ NULL);
+ XtAddCallback(button, XmNactivateCallback,
+ (XtCallbackProc) encoding_callback, (XtPointer) data);
+ XtManageChild(button);
+ }
+
+ if (data->sel[ENCODING])
+ {
+ if (!strcmp(data->sel[ENCODING], list[ENCODING][i]))
+ selected_button = button;
+ }
+ XtFree(list[ENCODING][i]);
+ }
+
+ /* Destroy all the outstandig menu items.
+ */
+ for (i = count[ENCODING]; i < n_items; ++i)
+ {
+ XtUnmanageChild(children[i]);
+ XtDestroyWidget(children[i]);
+ }
+
+ /* Preserve the current selection visually.
+ */
+ if (selected_button)
+ {
+ XtVaSetValues(data->encoding_menu,
+ XmNmenuHistory, selected_button,
+ NULL);
+ }
+
+ for (i = 0; i < count[ENCODING]; ++i)
+ XmStringFree(items[i]);
+ }
+
+ /*
+ * Now loop trough the remaining lists and set them up.
+ */
+ for (index = (int)NAME; index < (int)NONE; ++index)
+ {
+ Widget w;
+
+ if (fix == (enum ListSpecifier)index)
+ continue;
+
+ switch ((enum ListSpecifier)index)
+ {
+ case NAME:
+ w = data->list[NAME];
+ break;
+ case STYLE:
+ w = data->list[STYLE];
+ break;
+ case SIZE:
+ w = data->list[SIZE];
+ break;
+ default:
+ w = (Widget)0; /* for lint */
+ }
+
+ for (i = 0; i < count[index]; ++i)
+ {
+ items[i] = XmStringCreateLocalized(list[index][i]);
+ XtFree(list[index][i]);
+ }
+ XmListDeleteAllItems(w);
+ XmListAddItems(w, items, count[index], 1);
+ if (data->sel[index])
+ {
+ XmStringFree(items[0]);
+ items[0] = XmStringCreateLocalized(data->sel[index]);
+ XmListSelectItem(w, items[0], False);
+ XmListSetBottomItem(w, items[0]);
+ }
+ for (i = 0; i < count[index]; ++i)
+ XmStringFree(items[i]);
+ }
+}
+
+/*ARGSUSED*/
+ static void
+stoggle_callback(Widget w,
+ SharedFontSelData *data,
+ XmToggleButtonCallbackStruct *call_data)
+{
+ int i, do_sel;
+ char newSize[10];
+ XmString str;
+
+ if (call_data->reason != (int)XmCR_VALUE_CHANGED)
+ return;
+
+ do_sel = (data->sel[SIZE] != NULL) && strcmp(data->sel[SIZE], wild);
+
+ for (i = 0; do_sel && (i < data->num); i++)
+ if (match(data, ENCODING, i)
+ && match(data, NAME, i)
+ && match(data, STYLE, i)
+ && match(data, SIZE, i))
+ {
+ size_part(fn(data, i), newSize, !data->in_pixels);
+ break;
+ }
+
+ data->in_pixels = !data->in_pixels;
+
+ if (data->sel[SIZE])
+ XtFree(data->sel[SIZE]);
+ data->sel[SIZE] = NULL;
+ fill_lists(NONE, data);
+
+ if (do_sel)
+ {
+ str = XmStringCreateLocalized(newSize);
+ XmListSelectItem(data->list[SIZE], str, True);
+ XmListSetBottomItem(data->list[SIZE], str);
+ XmStringFree(str);
+ }
+}
+
+/*
+ * Show the currently selected font in the sample text label.
+ */
+ static void
+display_sample(SharedFontSelData *data)
+{
+ Arg args[2];
+ int n;
+ XFontStruct * font;
+ XmFontList font_list;
+ Display * display;
+ XmString str;
+
+ display = XtDisplay(data->dialog);
+ font = XLoadQueryFont(display, data->font_name);
+ font_list = gui_motif_create_fontlist(font);
+
+ n = 0;
+ str = XmStringCreateLocalized("AaBbZzYy 0123456789");
+ XtSetArg(args[n], XmNlabelString, str); n++;
+ XtSetArg(args[n], XmNfontList, font_list); n++;
+
+ XtSetValues(data->sample, args, n);
+ XmStringFree(str);
+
+ if (data->old)
+ {
+ XFreeFont(display, data->old);
+ XmFontListFree(data->old_list);
+ }
+ data->old = font;
+ data->old_list = font_list;
+}
+
+
+ static Boolean
+do_choice(Widget w,
+ SharedFontSelData *data,
+ XmListCallbackStruct *call_data,
+ enum ListSpecifier which)
+{
+ char *sel;
+
+ XmStringGetLtoR(call_data->item, XmSTRING_DEFAULT_CHARSET, &sel);
+
+ if (!data->sel[which])
+ data->sel[which] = XtNewString(sel);
+ else
+ {
+ XtFree(data->sel[which]);
+ if (!strcmp(data->sel[which], sel))
+ {
+ /* unselecting current selection */
+ data->sel[which] = NULL;
+ if (w)
+ XmListDeselectItem(w, call_data->item);
+ }
+ else
+ data->sel[which] = XtNewString(sel);
+ }
+ XtFree(sel);
+
+ fill_lists(which, data);
+
+ /* If there is a font selection, we display it. */
+ if (data->sel[ENCODING]
+ && data->sel[NAME]
+ && data->sel[STYLE]
+ && data->sel[SIZE]
+ && strcmp(data->sel[ENCODING], wild)
+ && strcmp(data->sel[NAME], wild)
+ && strcmp(data->sel[STYLE], wild)
+ && strcmp(data->sel[SIZE], wild))
+ {
+ int i;
+
+ if (data->font_name)
+ XtFree(data->font_name);
+ data->font_name = NULL;
+
+ for (i = 0; i < data->num; i++)
+ {
+ if (match(data, ENCODING, i)
+ && match(data, NAME, i)
+ && match(data, STYLE, i)
+ && match(data, SIZE, i))
+ {
+ data->font_name = XtNewString(fn(data, i));
+ break;
+ }
+ }
+
+ if (data->font_name)
+ {
+ XmTextSetString(data->name, data->font_name);
+ display_sample(data);
+ }
+ else
+ do_dialog(VIM_ERROR,
+ (char_u *)_("Error"),
+ (char_u *)_("Invalid font specification"),
+ (char_u *)_("&Dismiss"), 1, NULL);
+
+ return True;
+ }
+ else
+ {
+ int n;
+ XmString str;
+ Arg args[4];
+ char *msg = _("no specific match");
+
+ n = 0;
+ str = XmStringCreateLocalized(msg);
+ XtSetArg(args[n], XmNlabelString, str); ++n;
+ XtSetValues(data->sample, args, n);
+ apply_fontlist(data->sample);
+ XmTextSetString(data->name, msg);
+ XmStringFree(str);
+
+ return False;
+ }
+}
+
+/*ARGSUSED*/
+ static void
+encoding_callback(Widget w,
+ SharedFontSelData *data,
+ XtPointer dummy)
+{
+ XmString str;
+ XmListCallbackStruct fake_data;
+
+ XtVaGetValues(w, XmNlabelString, &str, NULL);
+
+ if (!str)
+ return;
+
+ fake_data.item = str;
+
+ do_choice(0, data, &fake_data, ENCODING);
+}
+
+ static void
+name_callback(Widget w,
+ SharedFontSelData *data,
+ XmListCallbackStruct *call_data)
+{
+ do_choice(w, data, call_data, NAME);
+}
+
+ static void
+style_callback(Widget w,
+ SharedFontSelData *data,
+ XmListCallbackStruct *call_data)
+{
+ do_choice(w, data, call_data, STYLE);
+}
+
+ static void
+size_callback(Widget w,
+ SharedFontSelData *data,
+ XmListCallbackStruct *call_data)
+{
+ do_choice(w, data, call_data, SIZE);
+}
+
+/*ARGSUSED*/
+ static void
+cancel_callback(Widget w,
+ SharedFontSelData *data,
+ XmListCallbackStruct *call_data)
+{
+ if (data->sel[ENCODING])
+ {
+ XtFree(data->sel[ENCODING]);
+ data->sel[ENCODING] = NULL;
+ }
+ if (data->sel[NAME])
+ {
+ XtFree(data->sel[NAME]);
+ data->sel[NAME] = NULL;
+ }
+ if (data->sel[STYLE])
+ {
+ XtFree(data->sel[STYLE]);
+ data->sel[STYLE] = NULL;
+ }
+ if (data->sel[SIZE])
+ {
+ XtFree(data->sel[SIZE]);
+ data->sel[SIZE] = NULL;
+ }
+
+ if (data->font_name)
+ XtFree(data->font_name);
+ data->font_name = NULL;
+
+ data->num = 0;
+ XFreeFontNames(data->names);
+ data->names = NULL;
+ data->exit = True;
+}
+
+/*ARGSUSED*/
+ static void
+ok_callback(Widget w,
+ SharedFontSelData *data,
+ XmPushButtonCallbackStruct *call_data)
+{
+ char *pattern;
+ char **name;
+ int i;
+
+ pattern = XmTextGetString(data->name);
+ name = XListFonts(XtDisplay(data->dialog), pattern, 1, &i);
+ XtFree(pattern);
+
+ if (i != 1)
+ {
+ do_dialog(VIM_ERROR,
+ (char_u *)_("Error"),
+ (char_u *)_("Invalid font specification"),
+ (char_u *)_("&Dismiss"), 1, NULL);
+ XFreeFontNames(name);
+ }
+ else
+ {
+ if (data->font_name)
+ XtFree(data->font_name);
+ data->font_name = XtNewString(name[0]);
+
+ if (data->sel[ENCODING])
+ {
+ XtFree(data->sel[ENCODING]);
+ data->sel[ENCODING] = NULL;
+ }
+ if (data->sel[NAME])
+ {
+ XtFree(data->sel[NAME]);
+ data->sel[NAME] = NULL;
+ }
+ if (data->sel[STYLE])
+ {
+ XtFree(data->sel[STYLE]);
+ data->sel[STYLE] = NULL;
+ }
+ if (data->sel[SIZE])
+ {
+ XtFree(data->sel[SIZE]);
+ data->sel[SIZE] = NULL;
+ }
+
+ XFreeFontNames(name);
+
+ data->num = 0;
+ XFreeFontNames(data->names);
+ data->names = NULL;
+ data->exit = True;
+ }
+}
+
+/*
+ * Returns pointer to an ASCII character string that contains the name of the
+ * selected font (in X format for naming fonts); it is the users responsibility
+ * to free the space allocated to this string.
+ */
+ char_u *
+gui_xm_select_font(char_u *current)
+{
+ static SharedFontSelData _data;
+
+ Widget parent;
+ Widget form;
+ Widget separator;
+ Widget sub_form;
+ Widget size_toggle;
+ Widget name;
+ Widget disp_frame;
+ Widget frame;
+ Arg args[64];
+ int n;
+ XmString str;
+ char big_font[MAX_FONT_NAME_LEN];
+ SharedFontSelData *data;
+
+ data = &_data;
+
+ parent = vimShell;
+ data->names = XListFonts(XtDisplay(parent), "-*-*-*-*-*-*-*-*-*-*-*-*-*-*",
+ MAX_FONTS, &data->num);
+
+ /*
+ * Find the name of the biggest font less than the given limit
+ * MAX_DISPLAY_SIZE used to set up the initial height of the display
+ * widget.
+ */
+
+ {
+ int i;
+ int max;
+ int index = 0;
+ int size;
+ char str[128];
+
+ for (i = 0, max = 0; i < data->num; i++)
+ {
+ get_part(fn(data, i), 7, str);
+ size = atoi(str);
+ if ((size > max) && (size < MAX_DISPLAY_SIZE))
+ {
+ index = i;
+ max = size;
+ }
+ }
+ strcpy(big_font, fn(data, index));
+ }
+ data->old = XLoadQueryFont(XtDisplay(parent), big_font);
+ data->old_list = gui_motif_create_fontlist(data->old);
+
+ /* Set the title of the Dialog window. */
+ data->dialog = XmCreateDialogShell(parent, "fontSelector", NULL, 0);
+ str = XmStringCreateLocalized(_("Vim - Font Selector"));
+
+ /* Create form popup dialog widget. */
+ form = XtVaCreateWidget("form",
+ xmFormWidgetClass, data->dialog,
+ XmNdialogTitle, str,
+ XmNautoUnmanage, False,
+ XmNdialogStyle, XmDIALOG_FULL_APPLICATION_MODAL,
+ NULL);
+ XmStringFree(str);
+
+ sub_form = XtVaCreateManagedWidget("subForm",
+ xmFormWidgetClass, form,
+ XmNbottomAttachment, XmATTACH_FORM,
+ XmNbottomOffset, 4,
+ XmNrightAttachment, XmATTACH_FORM,
+ XmNrightOffset, 4,
+ XmNtopAttachment, XmATTACH_FORM,
+ XmNtopOffset, 4,
+ XmNorientation, XmVERTICAL,
+ NULL);
+
+ data->ok = XtVaCreateManagedWidget(_("OK"),
+ xmPushButtonGadgetClass, sub_form,
+ XmNleftAttachment, XmATTACH_FORM,
+ XmNrightAttachment, XmATTACH_FORM,
+ XmNtopAttachment, XmATTACH_FORM,
+ XmNtopOffset, 4,
+ NULL);
+ apply_fontlist(data->ok);
+
+ data->cancel = XtVaCreateManagedWidget(_("Cancel"),
+ xmPushButtonGadgetClass, sub_form,
+ XmNrightAttachment, XmATTACH_FORM,
+ XmNleftAttachment, XmATTACH_FORM,
+ XmNtopAttachment, XmATTACH_WIDGET,
+ XmNtopWidget, data->ok,
+ XmNtopOffset, 4,
+ XmNshowAsDefault, True,
+ NULL);
+ apply_fontlist(data->cancel);
+
+ /* Create the separator for beauty. */
+ n = 0;
+ XtSetArg(args[n], XmNorientation, XmVERTICAL); n++;
+ XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
+ XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
+ XtSetArg(args[n], XmNrightAttachment, XmATTACH_WIDGET); n++;
+ XtSetArg(args[n], XmNrightWidget, sub_form); n++;
+ XtSetArg(args[n], XmNrightOffset, 4); n++;
+ separator = XmCreateSeparatorGadget(form, "separator", args, n);
+ XtManageChild(separator);
+
+ /* Create font name text widget and the corresponding label. */
+ data->name = XtVaCreateManagedWidget("fontName",
+ xmTextWidgetClass, form,
+ XmNbottomAttachment, XmATTACH_FORM,
+ XmNbottomOffset, 4,
+ XmNleftAttachment, XmATTACH_FORM,
+ XmNleftOffset, 4,
+ XmNrightAttachment, XmATTACH_WIDGET,
+ XmNrightWidget, separator,
+ XmNrightOffset, 4,
+ XmNeditable, False,
+ XmNeditMode, XmSINGLE_LINE_EDIT,
+ XmNmaxLength, MAX_FONT_NAME_LEN,
+ XmNcolumns, 60,
+ NULL);
+
+ str = XmStringCreateLocalized(_("Name:"));
+ name = XtVaCreateManagedWidget("fontNameLabel",
+ xmLabelGadgetClass, form,
+ XmNlabelString, str,
+ XmNuserData, data->name,
+ XmNleftAttachment, XmATTACH_OPPOSITE_WIDGET,
+ XmNleftWidget, data->name,
+ XmNbottomAttachment, XmATTACH_WIDGET,
+ XmNbottomWidget, data->name,
+ XmNtopOffset, 1,
+ NULL);
+ XmStringFree(str);
+ apply_fontlist(name);
+
+ /* create sample display label widget */
+ disp_frame = XtVaCreateManagedWidget("sampleFrame",
+ xmFrameWidgetClass, form,
+ XmNshadowType, XmSHADOW_ETCHED_IN,
+ XmNleftAttachment, XmATTACH_FORM,
+ XmNleftOffset, 4,
+ XmNbottomAttachment, XmATTACH_WIDGET,
+ XmNbottomWidget, name,
+ XmNrightAttachment, XmATTACH_WIDGET,
+ XmNrightWidget, separator,
+ XmNrightOffset, 4,
+ XmNalignment, XmALIGNMENT_BEGINNING,
+ NULL);
+
+ data->sample = XtVaCreateManagedWidget("sampleLabel",
+ xmLabelWidgetClass, disp_frame,
+ XmNleftAttachment, XmATTACH_FORM,
+ XmNtopAttachment, XmATTACH_FORM,
+ XmNbottomAttachment, XmATTACH_FORM,
+ XmNrightAttachment, XmATTACH_FORM,
+ XmNalignment, XmALIGNMENT_BEGINNING,
+ XmNrecomputeSize, False,
+ XmNfontList, data->old_list,
+ NULL);
+
+ /* create toggle button */
+ str = XmStringCreateLocalized(_("Show size in Points"));
+ size_toggle = XtVaCreateManagedWidget("sizeToggle",
+ xmToggleButtonGadgetClass, form,
+ XmNlabelString, str,
+ XmNleftAttachment, XmATTACH_FORM,
+ XmNleftOffset, 4,
+ XmNbottomAttachment, XmATTACH_WIDGET,
+ XmNbottomWidget, disp_frame,
+ XmNbottomOffset, 4,
+ NULL);
+ XmStringFree(str);
+ apply_fontlist(size_toggle);
+ XtManageChild(size_toggle);
+
+ /* Encoding pulldown menu.
+ */
+
+ data->encoding_pulldown = XmCreatePulldownMenu(form,
+ "encodingPulldown", NULL, 0);
+ str = XmStringCreateLocalized(_("Encoding:"));
+ n = 0;
+ XtSetArg(args[n], XmNsubMenuId, data->encoding_pulldown); ++n;
+ XtSetArg(args[n], XmNlabelString, str); ++n;
+ XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); ++n;
+ XtSetArg(args[n], XmNleftOffset, 4); ++n;
+ XtSetArg(args[n], XmNbottomAttachment, XmATTACH_WIDGET); ++n;
+ XtSetArg(args[n], XmNbottomWidget, size_toggle); ++n;
+ XtSetArg(args[n], XmNbottomOffset, 4); ++n;
+ XtSetArg(args[n], XmNrightAttachment, XmATTACH_WIDGET); ++n;
+ XtSetArg(args[n], XmNrightWidget, separator); ++n;
+ XtSetArg(args[n], XmNrightOffset, 4); ++n;
+ data->encoding_menu = XmCreateOptionMenu(form, "encodingMenu", args, n);
+ XmStringFree(str);
+ XmAddTabGroup(data->encoding_menu);
+
+ /*
+ * Create scroll list widgets in a separate subform used to manage the
+ * different sizes of the lists.
+ */
+
+ sub_form = XtVaCreateManagedWidget("subForm",
+ xmFormWidgetClass, form,
+ XmNbottomAttachment, XmATTACH_WIDGET,
+ XmNbottomWidget, data->encoding_menu,
+ XmNbottomOffset, 4,
+ XmNleftAttachment, XmATTACH_FORM,
+ XmNleftOffset, 4,
+ XmNrightAttachment, XmATTACH_WIDGET,
+ XmNrightWidget, separator,
+ XmNrightOffset, 4,
+ XmNtopAttachment, XmATTACH_FORM,
+ XmNtopOffset, 2,
+ XmNorientation, XmVERTICAL,
+ NULL);
+
+ /* font list */
+ frame = XtVaCreateManagedWidget("frame", xmFrameWidgetClass, sub_form,
+ XmNshadowThickness, 0,
+ XmNtopAttachment, XmATTACH_FORM,
+ XmNbottomAttachment, XmATTACH_FORM,
+ XmNleftAttachment, XmATTACH_FORM,
+ XmNrightAttachment, XmATTACH_POSITION,
+ XmNrightPosition, 50,
+ NULL);
+
+ str = XmStringCreateLocalized(_("Font:"));
+ name = XtVaCreateManagedWidget("nameListLabel", xmLabelGadgetClass, frame,
+ XmNchildType, XmFRAME_TITLE_CHILD,
+ XmNchildVerticalAlignment, XmALIGNMENT_CENTER,
+ XmNchildHorizontalAlignment, XmALIGNMENT_BEGINNING,
+ XmNlabelString, str,
+ NULL);
+ XmStringFree(str);
+ apply_fontlist(name);
+
+ n = 0;
+ XtSetArg(args[n], XmNvisibleItemCount, 8); ++n;
+ XtSetArg(args[n], XmNresizable, True); ++n;
+ XtSetArg(args[n], XmNlistSizePolicy, XmCONSTANT); ++n;
+ XtSetArg(args[n], XmNvisualPolicy, XmVARIABLE); ++n;
+#ifdef LESSTIF_VERSION
+ XtSetArg(args[n], XmNscrollBarDisplayPolicy, XmSTATIC); ++n;
+#endif
+ data->list[NAME] = XmCreateScrolledList(frame, "fontList", args, n);
+ XtVaSetValues(name, XmNuserData, data->list[NAME], NULL);
+
+ /* style list */
+ frame = XtVaCreateManagedWidget("frame", xmFrameWidgetClass, sub_form,
+ XmNshadowThickness, 0,
+ XmNtopAttachment, XmATTACH_FORM,
+ XmNbottomAttachment, XmATTACH_FORM,
+ XmNleftAttachment, XmATTACH_POSITION,
+ XmNleftPosition, 50,
+ XmNleftOffset, 4,
+ XmNrightAttachment, XmATTACH_POSITION,
+ XmNrightPosition, 80,
+ NULL);
+
+ str = XmStringCreateLocalized(_("Style:"));
+ name = XtVaCreateManagedWidget("styleListLabel", xmLabelWidgetClass, frame,
+ XmNchildType, XmFRAME_TITLE_CHILD,
+ XmNchildVerticalAlignment, XmALIGNMENT_CENTER,
+ XmNchildHorizontalAlignment, XmALIGNMENT_BEGINNING,
+ XmNlabelString, str,
+ NULL);
+ XmStringFree(str);
+ apply_fontlist(name);
+
+ n = 0;
+ XtSetArg(args[n], XmNvisibleItemCount, 8); ++n;
+ XtSetArg(args[n], XmNresizable, True); ++n;
+ XtSetArg(args[n], XmNlistSizePolicy, XmCONSTANT); ++n;
+ XtSetArg(args[n], XmNvisualPolicy, XmVARIABLE); ++n;
+#ifdef LESSTIF_VERSION
+ XtSetArg(args[n], XmNscrollBarDisplayPolicy, XmSTATIC); ++n;
+#endif
+ data->list[STYLE] = XmCreateScrolledList(frame, "styleList", args, n);
+ XtVaSetValues(name, XmNuserData, data->list[STYLE], NULL);
+
+ /* size list */
+ frame = XtVaCreateManagedWidget("frame", xmFrameWidgetClass, sub_form,
+ XmNshadowThickness, 0,
+ XmNtopAttachment, XmATTACH_FORM,
+ XmNbottomAttachment, XmATTACH_FORM,
+ XmNleftAttachment, XmATTACH_POSITION,
+ XmNleftPosition, 80,
+ XmNleftOffset, 4,
+ XmNrightAttachment, XmATTACH_FORM,
+ NULL);
+
+ str = XmStringCreateLocalized(_("Size:"));
+ name = XtVaCreateManagedWidget("sizeListLabel", xmLabelGadgetClass, frame,
+ XmNchildType, XmFRAME_TITLE_CHILD,
+ XmNchildVerticalAlignment, XmALIGNMENT_CENTER,
+ XmNchildHorizontalAlignment, XmALIGNMENT_BEGINNING,
+ XmNlabelString, str,
+ NULL);
+ XmStringFree(str);
+ apply_fontlist(name);
+
+ n = 0;
+ XtSetArg(args[n], XmNvisibleItemCount, 8); ++n;
+ XtSetArg(args[n], XmNresizable, True); ++n;
+ XtSetArg(args[n], XmNlistSizePolicy, XmCONSTANT); ++n;
+ XtSetArg(args[n], XmNvisualPolicy, XmVARIABLE); ++n;
+#ifdef LESSTIF_VERSION
+ XtSetArg(args[n], XmNscrollBarDisplayPolicy, XmSTATIC); ++n;
+#endif
+ data->list[SIZE] = XmCreateScrolledList(frame, "sizeList", args, n);
+ XtVaSetValues(name, XmNuserData, data->list[SIZE], NULL);
+
+ /* update form widgets cancel button */
+ XtVaSetValues(form, XmNcancelButton, data->cancel, NULL);
+
+ XtAddCallback(size_toggle, XmNvalueChangedCallback,
+ (XtCallbackProc)stoggle_callback, (XtPointer)data);
+ XtAddCallback(data->list[NAME], XmNbrowseSelectionCallback,
+ (XtCallbackProc)name_callback, (XtPointer)data);
+ XtAddCallback(data->list[STYLE], XmNbrowseSelectionCallback,
+ (XtCallbackProc)style_callback, (XtPointer)data);
+ XtAddCallback(data->list[SIZE], XmNbrowseSelectionCallback,
+ (XtCallbackProc)size_callback, (XtPointer)data);
+ XtAddCallback(data->ok, XmNactivateCallback,
+ (XtCallbackProc)ok_callback, (XtPointer)data);
+ XtAddCallback(data->cancel, XmNactivateCallback,
+ (XtCallbackProc)cancel_callback, (XtPointer)data);
+
+ XmProcessTraversal(data->list[NAME], XmTRAVERSE_CURRENT);
+
+ /* setup tabgroups */
+
+ XmAddTabGroup(data->list[NAME]);
+ XmAddTabGroup(data->list[STYLE]);
+ XmAddTabGroup(data->list[SIZE]);
+ XmAddTabGroup(size_toggle);
+ XmAddTabGroup(data->name);
+ XmAddTabGroup(data->ok);
+ XmAddTabGroup(data->cancel);
+
+ add_cancel_action(data->dialog, (XtCallbackProc)cancel_callback, data);
+
+ /* Preset selection data. */
+
+ data->exit = False;
+ data->in_pixels= True;
+ data->sel[ENCODING] = NULL;
+ data->sel[NAME] = NULL;
+ data->sel[STYLE] = NULL;
+ data->sel[SIZE] = NULL;
+ data->font_name = NULL;
+
+ /* set up current font parameters */
+ if (current && current[0] != '\0')
+ {
+ int i;
+ char **names;
+
+ names = XListFonts(XtDisplay(form), (char *) current, 1, &i);
+
+ if (i != 0)
+ {
+ char name[TEMP_BUF_SIZE];
+ char style[TEMP_BUF_SIZE];
+ char size[TEMP_BUF_SIZE];
+ char encoding[TEMP_BUF_SIZE];
+ char *found;
+
+ found = names[0];
+
+ name_part(found, name);
+ style_part(found, style);
+ size_part(found, size, data->in_pixels);
+ encoding_part(found, encoding);
+
+ if (strlen(name) > 0
+ && strlen(style) > 0
+ && strlen(size) > 0
+ && strlen(encoding) > 0)
+ {
+ data->sel[NAME] = XtNewString(name);
+ data->sel[STYLE] = XtNewString(style);
+ data->sel[SIZE] = XtNewString(size);
+ data->sel[ENCODING] = XtNewString(encoding);
+ data->font_name = XtNewString(names[0]);
+ display_sample(data);
+ XmTextSetString(data->name, data->font_name);
+ }
+ else
+ {
+ /* We can't preset a symbolic name, which isn't a full font
+ * description. Therefore we just behave the same way as if the
+ * user didn't have selected anything thus far.
+ *
+ * Unfortunately there is no known way to expand an abbreviated
+ * font name.
+ */
+
+ data->font_name = NULL;
+ }
+ }
+ XFreeFontNames(names);
+ }
+
+ fill_lists(NONE, data);
+
+ /* Unfortunately LessTif doesn't align the list widget's properly. I don't
+ * have currently any idea how to fix this problem.
+ */
+ XtManageChild(data->list[NAME]);
+ XtManageChild(data->list[STYLE]);
+ XtManageChild(data->list[SIZE]);
+ XtManageChild(data->encoding_menu);
+ manage_centered(form);
+
+ /* modal event loop */
+ while (!data->exit)
+ XtAppProcessEvent(XtWidgetToApplicationContext(data->dialog),
+ (XtInputMask)XtIMAll);
+
+ XtDestroyWidget(data->dialog);
+
+ if (data->old)
+ {
+ XFreeFont(XtDisplay(data->dialog), data->old);
+ XmFontListFree(data->old_list);
+ }
+
+ gui_motif_synch_fonts();
+
+ return (char_u *) data->font_name;
+}
if (wcol == MAXCOL || rc == FAIL)
curwin->w_valid &= ~VALID_VIRTCOL;
- else
+ else if (*ml_get_cursor() != TAB)
{
- /* Virtcol is valid */
+ /* Virtcol is valid when not on a TAB */
curwin->w_valid |= VALID_VIRTCOL;
curwin->w_virtcol = wcol;
}
# endif
# ifdef FEAT_GUI_MOTIF
# include "gui_motif.pro"
+# include "gui_xmdlg.pro"
# endif
# ifdef FEAT_GUI_ATHENA
# include "gui_athena.pro"
--- /dev/null
+/* gui_xmdlg.c */
+char_u *gui_xm_select_font __ARGS((char_u *current));
+/* vim: set ft=c : */
#include <stdlib.h>
#include <stdarg.h>
#include <fcntl.h>
+#include <sys/types.h>
#include <netdb.h>
#include <netinet/in.h>
#include <errno.h>
-#include <sys/types.h>
#include <sys/socket.h>
#ifdef HAVE_LIBGEN_H
# include <libgen.h>
projects / vim / commitdiff