Commit 642c4735 authored by Michael Natterer's avatar Michael Natterer 😴 Committed by Michael Natterer

app/actions/edit-actions.c added "Edit/Paste as" submenu and moved "Paste

2005-09-25  Michael Natterer  <mitch@gimp.org>

	* app/actions/edit-actions.c
	* menus/image-menu.xml.in: added "Edit/Paste as" submenu and moved
	"Paste as new" there (renamed to "New Image").

	* plug-ins/script-fu/scripts/Makefile.am
	* plug-ins/script-fu/scripts/paste-as-brush.scm
	* plug-ins/script-fu/scripts/paste-as-pattern.scm: new scripts
	roughly derived from select-to-brush and select-to-pattern.

	* plug-ins/script-fu/scripts/select-to-brush.scm
	* plug-ins/script-fu/scripts/select-to-image.scm
	* plug-ins/script-fu/scripts/select-to-pattern.scm: don't register
	menu entries.
parent d43c5c07
2005-09-25 Michael Natterer <mitch@gimp.org>
* app/actions/edit-actions.c
* menus/image-menu.xml.in: added "Edit/Paste as" submenu and moved
"Paste as new" there (renamed to "New Image").
* plug-ins/script-fu/scripts/Makefile.am
* plug-ins/script-fu/scripts/paste-as-brush.scm
* plug-ins/script-fu/scripts/paste-as-pattern.scm: new scripts
roughly derived from select-to-brush and select-to-pattern.
* plug-ins/script-fu/scripts/select-to-brush.scm
* plug-ins/script-fu/scripts/select-to-image.scm
* plug-ins/script-fu/scripts/select-to-pattern.scm: don't register
menu entries.
2005-09-25 Sven Neumann <sven@gimp.org>
* app/base/siox.[ch]: applied patch from Gerald Friedland and
......
......@@ -58,8 +58,10 @@ static void edit_actions_pattern_changed (GimpContext *context,
static GimpActionEntry edit_actions[] =
{
{ "edit-menu", NULL, N_("_Edit") },
{ "edit-buffer-menu", NULL, N_("_Buffer") },
{ "edit-menu", NULL, N_("_Edit") },
{ "edit-paste-as-menu", NULL, N_("_Paste as") },
{ "edit-buffer-menu", NULL, N_("_Buffer") },
{ "undo-editor-popup",
GTK_STOCK_UNDO, N_("Undo History Menu"), NULL, NULL, NULL,
GIMP_HELP_UNDO_DIALOG },
......@@ -108,7 +110,7 @@ static GimpActionEntry edit_actions[] =
GIMP_HELP_EDIT_PASTE_INTO },
{ "edit-paste-as-new", GIMP_STOCK_PASTE_AS_NEW,
N_("Paste as _New"), NULL, NULL,
N_("_New Image"), NULL, NULL,
G_CALLBACK (edit_paste_as_new_cmd_callback),
GIMP_HELP_EDIT_PASTE_AS_NEW },
......
......@@ -162,8 +162,10 @@
<placeholder name="Paste">
<menuitem action="edit-paste" />
<menuitem action="edit-paste-into" />
<menuitem action="edit-paste-as-new" />
</placeholder>
<menu action="edit-paste-as-menu" name="Paste as">
<menuitem action="edit-paste-as-new" />
</menu>
<menu action="edit-buffer-menu" name="Buffer">
<menuitem action="edit-named-cut" />
<menuitem action="edit-named-copy" />
......
......@@ -69,6 +69,8 @@ scripts = \
mkbrush.scm \
neon-logo.scm \
news-text.scm \
paste-as-brush.scm \
paste-as-pattern.scm \
perspective-shadow.scm \
predator.scm \
pupi-button.scm \
......
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; script-fu-paste-as-brush
; Based on select-to-brush by Copyright (c) 1997 Adrian Likins
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; 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.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-paste-as-brush image
drawable
name
filename
spacing)
(set! brush-image (car (gimp-edit-paste-as-new)))
(set! brush-draw (car (gimp-image-get-active-drawable brush-image)))
(set! type (car (gimp-drawable-type brush-draw)))
(if (= type GRAYA-IMAGE)
(begin
(gimp-context-push)
(gimp-context-set-background '(255 255 255))
(set! brush-draw (car (gimp-image-flatten brush-image)))
(gimp-context-pop))
())
(set! path (string-append gimp-directory
"/brushes/"
filename
(number->string image)
".gbr"))
(file-gbr-save 1 brush-image brush-draw path "" spacing name)
(gimp-image-delete brush-image)
(gimp-brushes-refresh)
(gimp-context-set-brush name))
(script-fu-register "script-fu-paste-as-brush"
_"New _Brush..."
"Pastes the clipboard into a new brush"
"Michael Natterer <mitch@gimp.org>"
"Michael Natterer"
"2005-09-25"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-STRING _"Brush name" "My Brush"
SF-STRING _"File name" "mybrush"
SF-ADJUSTMENT _"Spacing" '(25 0 1000 1 1 1 0))
(script-fu-menu-register "script-fu-paste-as-brush"
"<Image>/Edit/Paste as")
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; script-fu-paste-as-pattern
; Based on select-to-pattern by Cameron Gregory, http://www.flamingtext.com/
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; 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.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-paste-as-pattern image
drawable
name
filename)
(set! pattern-image (car (gimp-edit-paste-as-new)))
(set! pattern-draw (car (gimp-image-get-active-drawable pattern-image)))
(set! path (string-append gimp-directory
"/patterns/"
filename
(number->string image)
".pat"))
(file-pat-save 1 pattern-image pattern-draw path "" name)
(gimp-image-delete pattern-image)
(gimp-patterns-refresh)
(gimp-context-set-pattern name))
(script-fu-register "script-fu-paste-as-pattern"
_"New _Pattern..."
"Pastes the clipboard into a new pattern"
"Michael Natterer <mitch@gimp.org>"
"Michael Natterer"
"2005-09-25"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-STRING _"Pattern name" "My Pattern"
SF-STRING _"File name" "mypattern")
(script-fu-menu-register "script-fu-paste-as-pattern"
"<Image>/Edit/Paste as")
......@@ -123,6 +123,3 @@
SF-STRING _"Brush name" "My Brush"
SF-STRING _"File name" "mybrush"
SF-ADJUSTMENT _"Spacing" '(25 0 1000 1 1 1 0))
(script-fu-menu-register "script-fu-selection-to-brush"
"<Image>/Filters/Selection")
......@@ -74,6 +74,3 @@
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)
(script-fu-menu-register "script-fu-selection-to-image"
"<Image>/Filters/Selection")
......@@ -82,6 +82,3 @@
SF-DRAWABLE "Drawable" 0
SF-STRING _"Pattern name" "My Pattern"
SF-STRING _"File name" "mypattern")
(script-fu-menu-register "script-fu-selection-to-pattern"
"<Image>/Filters/Selection")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment