Mercurial > hg > xemacs-beta
comparison lisp/x-toolbar.el @ 274:ca9a9ec9c1c1 r21-0b35
Import from CVS: tag r21-0b35
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:29:42 +0200 |
| parents | 41f2f0e326e9 |
| children | 7df0dd720c89 |
comparison
equal
deleted
inserted
replaced
| 273:411aac7253ef | 274:ca9a9ec9c1c1 |
|---|---|
| 461 (concat prefix "-xx.xbm") | 461 (concat prefix "-xx.xbm") |
| 462 ))))) | 462 ))))) |
| 463 icon-list ) | 463 icon-list ) |
| 464 ) | 464 ) |
| 465 | 465 |
| 466 (defvar toolbar-vector-open | |
| 467 [toolbar-file-icon toolbar-open t "Open a file"] | |
| 468 "Define the vector for the \"Open\" toolbar button") | |
| 469 | |
| 470 (defvar toolbar-vector-dired | |
| 471 [toolbar-folder-icon toolbar-dired t "View directory"] | |
| 472 "Define the vector for the \"Dired\" toolbar button") | |
| 473 | |
| 474 (defvar toolbar-vector-save | |
| 475 [toolbar-disk-icon toolbar-save t "Save buffer"] | |
| 476 "Define the vector for the \"Save\" toolbar button") | |
| 477 | |
| 478 (defvar toolbar-vector-print | |
| 479 [toolbar-printer-icon toolbar-print t "Print buffer"] | |
| 480 "Define the vector for the \"Printer\" toolbar button") | |
| 481 | |
| 482 (defvar toolbar-vector-cut | |
| 483 [toolbar-cut-icon toolbar-cut t "Kill region"] | |
| 484 "Define the vector for the \"Cut\" toolbar button") | |
| 485 | |
| 486 (defvar toolbar-vector-copy | |
| 487 [toolbar-copy-icon toolbar-copy t "Copy region"] | |
| 488 "Define the vector for the \"Copy\" toolbar button") | |
| 489 | |
| 490 (defvar toolbar-vector-paste | |
| 491 [toolbar-paste-icon toolbar-paste t "Paste from clipboard"] | |
| 492 "Define the vector for the \"Paste\" toolbar button") | |
| 493 | |
| 494 (defvar toolbar-vector-undo | |
| 495 [toolbar-undo-icon toolbar-undo t "Undo edit"] | |
| 496 "Define the vector for the \"Undo\" toolbar button") | |
| 497 | |
| 498 (defvar toolbar-vector-spell | |
| 499 [toolbar-spell-icon toolbar-ispell t "Spellcheck"] | |
| 500 "Define the vector for the \"Spell\" toolbar button") | |
| 501 | |
| 502 (defvar toolbar-vector-replace | |
| 503 [toolbar-replace-icon toolbar-replace t "Replace text"] | |
| 504 "Define the vector for the \"Replace\" toolbar button") | |
| 505 | |
| 506 (defvar toolbar-vector-mail | |
| 507 [toolbar-mail-icon toolbar-mail t "Mail"] | |
| 508 "Define the vector for the \"Mail\" toolbar button") | |
| 509 | |
| 510 (defvar toolbar-vector-info | |
| 511 [toolbar-info-icon toolbar-info t "Information"] | |
| 512 "Define the vector for the \"Info\" toolbar button") | |
| 513 | |
| 514 (defvar toolbar-vector-compile | |
| 515 [toolbar-compile-icon toolbar-compile t "Compile"] | |
| 516 "Define the vector for the \"Compile\" toolbar button") | |
| 517 | |
| 518 (defvar toolbar-vector-debug | |
| 519 [toolbar-debug-icon toolbar-debug t "Debug"] | |
| 520 "Define the vector for the \"Debug\" toolbar button") | |
| 521 | |
| 522 (defvar toolbar-vector-news | |
| 523 [toolbar-news-icon toolbar-news t "News"] | |
| 524 "Define the vector for the \"News\" toolbar button") | |
| 525 | |
| 466 (defvar initial-toolbar-spec | 526 (defvar initial-toolbar-spec |
| 467 '(;;[toolbar-last-win-icon pop-window-configuration | 527 (list |
| 528 ;;[toolbar-last-win-icon pop-window-configuration | |
| 468 ;;(frame-property (selected-frame) | 529 ;;(frame-property (selected-frame) |
| 469 ;; 'window-config-stack) t "Most recent window config"] | 530 ;; 'window-config-stack) t "Most recent window config"] |
| 470 ;; #### Illicit knowledge? | 531 ;; #### Illicit knowledge? |
| 471 ;; #### These don't work right - not consistent! | 532 ;; #### These don't work right - not consistent! |
| 472 ;; I don't know what's wrong; perhaps `selected-frame' is wrong | 533 ;; I don't know what's wrong; perhaps `selected-frame' is wrong |
| 476 | 537 |
| 477 ;;[toolbar-next-win-icon unpop-window-configuration | 538 ;;[toolbar-next-win-icon unpop-window-configuration |
| 478 ;;(frame-property (selected-frame) | 539 ;;(frame-property (selected-frame) |
| 479 ;; 'window-config-unpop-stack) t "Undo \"Most recent window config\""] | 540 ;; 'window-config-unpop-stack) t "Undo \"Most recent window config\""] |
| 480 ;; #### Illicit knowledge? | 541 ;; #### Illicit knowledge? |
| 481 | 542 toolbar-vector-open |
| 482 [toolbar-file-icon toolbar-open t "Open a file"] | 543 toolbar-vector-dired |
| 483 [toolbar-folder-icon toolbar-dired t "View directory"] | 544 toolbar-vector-save |
| 484 [toolbar-disk-icon toolbar-save t "Save buffer"] | 545 toolbar-vector-print |
| 485 [toolbar-printer-icon toolbar-print t "Print buffer"] | 546 toolbar-vector-cut |
| 486 [toolbar-cut-icon toolbar-cut t "Kill region"] | 547 toolbar-vector-copy |
| 487 [toolbar-copy-icon toolbar-copy t "Copy region"] | 548 toolbar-vector-paste |
| 488 [toolbar-paste-icon toolbar-paste t "Paste from clipboard"] | 549 toolbar-vector-undo |
| 489 [toolbar-undo-icon toolbar-undo t "Undo edit"] | 550 toolbar-vector-spell |
| 490 [toolbar-spell-icon toolbar-ispell t "Spellcheck"] | 551 toolbar-vector-replace |
| 491 [toolbar-replace-icon toolbar-replace t "Replace text"] | 552 toolbar-vector-mail |
| 492 [toolbar-mail-icon toolbar-mail t "Mail"] | 553 toolbar-vector-info |
| 493 [toolbar-info-icon toolbar-info t "Information"] | 554 toolbar-vector-compile |
| 494 [toolbar-compile-icon toolbar-compile t "Compile"] | 555 toolbar-vector-debug |
| 495 [toolbar-debug-icon toolbar-debug t "Debug"] | 556 toolbar-vector-news |
| 496 [toolbar-news-icon toolbar-news t "News"] | 557 ) |
| 497 ) | |
| 498 "The initial toolbar for a buffer.") | 558 "The initial toolbar for a buffer.") |
| 499 | 559 |
| 500 (defun x-init-toolbar-from-resources (locale) | 560 (defun x-init-toolbar-from-resources (locale) |
| 501 (x-init-specifier-from-resources | 561 (x-init-specifier-from-resources |
| 502 top-toolbar-height 'natnum locale | 562 top-toolbar-height 'natnum locale |