mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-28 08:11:05 -08:00
Remove EmacsOpenPanel and EmacsSavePanel (bug#38031)
This commit is contained in:
parent
a0336029db
commit
0bed550e21
2 changed files with 1 additions and 40 deletions
25
src/nsfns.m
25
src/nsfns.m
|
|
@ -1622,7 +1622,7 @@ Optional arg DIR_ONLY_P, if non-nil, means choose only directories. */)
|
|||
dirS = [dirS stringByExpandingTildeInPath];
|
||||
|
||||
panel = isSave ?
|
||||
(id)[EmacsSavePanel savePanel] : (id)[EmacsOpenPanel openPanel];
|
||||
(id)[NSSavePanel savePanel] : (id)[NSOpenPanel openPanel];
|
||||
|
||||
[panel setTitle: promptS];
|
||||
|
||||
|
|
@ -3077,29 +3077,6 @@ handlePanelKeys (NSSavePanel *panel, NSEvent *theEvent)
|
|||
return ret;
|
||||
}
|
||||
|
||||
@implementation EmacsSavePanel
|
||||
- (BOOL)performKeyEquivalent:(NSEvent *)theEvent
|
||||
{
|
||||
BOOL ret = handlePanelKeys (self, theEvent);
|
||||
if (! ret)
|
||||
ret = [super performKeyEquivalent:theEvent];
|
||||
return ret;
|
||||
}
|
||||
@end
|
||||
|
||||
|
||||
@implementation EmacsOpenPanel
|
||||
- (BOOL)performKeyEquivalent:(NSEvent *)theEvent
|
||||
{
|
||||
// NSOpenPanel inherits NSSavePanel, so passing self is OK.
|
||||
BOOL ret = handlePanelKeys (self, theEvent);
|
||||
if (! ret)
|
||||
ret = [super performKeyEquivalent:theEvent];
|
||||
return ret;
|
||||
}
|
||||
@end
|
||||
|
||||
|
||||
@implementation EmacsFileDelegate
|
||||
/* --------------------------------------------------------------------------
|
||||
Delegate methods for Open/Save panels
|
||||
|
|
|
|||
16
src/nsterm.h
16
src/nsterm.h
|
|
@ -595,22 +595,6 @@ typedef id instancetype;
|
|||
@end
|
||||
|
||||
|
||||
/* ==========================================================================
|
||||
|
||||
File open/save panels
|
||||
This and next override methods to handle keyboard input in panels.
|
||||
|
||||
========================================================================== */
|
||||
|
||||
@interface EmacsSavePanel : NSSavePanel
|
||||
{
|
||||
}
|
||||
@end
|
||||
@interface EmacsOpenPanel : NSOpenPanel
|
||||
{
|
||||
}
|
||||
@end
|
||||
|
||||
@interface EmacsFileDelegate : NSObject
|
||||
{
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue