Author: espectador
Date: Wed Apr 2 07:08:10 2014
New Revision: 37779
URL: http://svn.gna.org/viewcvs/gnustep?rev=37779&view=rev
Log:
Implement new methods in Save panel.
Modified:
plugins/themes/WinUXTheme/ChangeLog
plugins/themes/WinUXTheme/WinNSOpenPanel.m
Modified: plugins/themes/WinUXTheme/ChangeLog
URL:
http://svn.gna.org/viewcvs/gnustep/plugins/themes/WinUXTheme/ChangeLog?rev=37779&r1=37778&r2=37779&view=diff
==============================================================================
--- plugins/themes/WinUXTheme/ChangeLog (original)
+++ plugins/themes/WinUXTheme/ChangeLog Wed Apr 2 07:08:10 2014
@@ -1,3 +1,8 @@
+2014-04-01 German Arias <[email protected]>
+
+ * WinNSOpenPanel.m: Implement -nameFieldStringValue
+ and -setNameFieldStringValue:.
+
2014-02-26 Doug Simons <[email protected]>
* WinNSOpenPanel.m: Tweak to omit "All" when only one file type is
allowed.
Modified: plugins/themes/WinUXTheme/WinNSOpenPanel.m
URL:
http://svn.gna.org/viewcvs/gnustep/plugins/themes/WinUXTheme/WinNSOpenPanel.m?rev=37779&r1=37778&r2=37779&view=diff
==============================================================================
--- plugins/themes/WinUXTheme/WinNSOpenPanel.m (original)
+++ plugins/themes/WinUXTheme/WinNSOpenPanel.m Wed Apr 2 07:08:10 2014
@@ -263,6 +263,17 @@
; // do nothing, just discard events
}
+unsigned long long unilen(unichar *chars)
+{
+ unsigned long long length = 0;
+ if(NULL == chars) return length;
+
+ while(NULL != chars[length])
+ length++;
+
+ return length;
+}
+
@interface WinNSOpenPanel : NSOpenPanel
{
unichar szFile[1024];
@@ -512,6 +523,17 @@
{
ASSIGN(_fullFileName, filename);
return [super filename];
+}
+
+- (NSString *) nameFieldStringValue
+{
+ return [[NSString stringWithCharacters: szFile
+ length: unilen(szFile)] lastPathComponent];
+}
+
+- (void) setNameFieldStringValue: (NSString*)value
+{
+ wcscpy(szFile, (const unichar *)[value cStringUsingEncoding:
NSUnicodeStringEncoding]);
}
- (int) runModalForDirectory: (NSString *)path
_______________________________________________
Gnustep-cvs mailing list
[email protected]
https://mail.gna.org/listinfo/gnustep-cvs
