Subclasses, modules and compatibility flags 😛
In Xojo it never used to require a lot of hard work to work across multiple versions. If you simply avoided using the new features then a project could mostly move back and forth between versions without much effort. You could even deal with a lot of newer version changes with a few #If XojoVersion wrappers around bits of code.… Read the rest
There’s a lot of changes in R2
There are some that are very minor. Like making VAR a synonym for DIM. You can use it or not. It functions no differently.
Some of them are very welcome like updates to URLConnection for one. The JSON Parse and Generate methods seem to work a LOT faster now.… Read the rest
Sometimes you want to be able to sort things in the same fashion as the Finder. This method when used as the comparison function for the Arry.Sort( delegate) form of sorting will do that
Public Function CompareLikeFinder(firstString as string, secondString as String) as integer
#If targetMacOS
// //
// // typedef NS_CLOSED_ENUM(NSInteger, NSComparisonResult) {
// // NSOrderedAscending = -1L,
// // NSOrderedSame,
// // NSOrderedDescending
// // };
//
// // this gives us "Finder like" comparisons
// -[NSString localizedStandardCompare:].Sometimes its useful to be able to be able to tell your user if they need to enable full keyboard access
You can tell if its enabled with this method
Public Function FullKeyboardAccessEnabled() as Boolean
#If TargetMacOS
Try
Declare Function NSClassFromString Lib "Cocoa" (name As CFStringRef) As Ptr
Declare Function GetSharedApplication Lib "AppKit" Selector "sharedApplication" (target As Ptr) As Ptr
Declare Function IsFullKeyboardAccessEnabled Lib "AppKit" Selector "isFullKeyboardAccessEnabled" (target As Ptr) As Boolean
Dim AppClass As Ptr = NSClassFromString("NSApplication")
If AppClass <Nil Then
Dim AppObject As Ptr = GetSharedApplication(AppClass)
If AppObject <Nil Then
Return IsFullKeyboardAccessEnabled(AppObject)
End If
End If
Catch Err As RuntimeException
Return False
End Try
#endif
// windows & linux can tab to EVERY control anyway
return true
End Function
macOS adopted an interesting behaviour some time ago where when you opened a new window in an application. It would default to opening a new tab in the window instead of opening a new window.
If your application could not deal with this and the user had the preference in System Preferences > Dock > Prefer Tabs when opening documents set to Always then it could cause your app issues.… Read the rest
I’ve seen this question come up a couple times recently. And while it would be nice to do you cant.
The frame type is required to be set when the window is constructed. And there’s no constructor on a window that allows you to do something like
dim w as new Window(frametype)So how can you have something like a document window on macOS and a movable modal on Windows ?… Read the rest
Posted an updated example project for how to make platform http error codes generic AND platform specific 😛
No. Not IE.
// there are issues with this style
// 1. you can only select one file
// 2. If folder is already opened, it doesn't select the file
Declare Function ShellExecuteW lib "shell32" (hwnd as Integer, lpOperation as WString, lpFile as WString, lpParameters as WString, lpDirectory as Integer, nShowCmnd as Integer) as Integer
Dim err as Integer
Dim param As String
param = "/select, """ + f.AbsolutePathThis has probably been posted in the forums. Its just not always easy to find.
Declare Function NSClassFromString Lib "Cocoa" (name As CFStringRef) As Ptr
Declare Function sharedWorkspace Lib "AppKit" selector "sharedWorkspace" ( obj As ptr ) As ptr
Declare Function selectFile Lib "AppKit" selector "selectFile:inFileViewerRootedAtPath:" ( obj As ptr, fPath As CFStringRef, rootFullPath As CFStringRef ) As Boolean
Dim workspace As ptr = sharedWorkspace( NSClassFromString( "NSWorkspace" ) )
Call selectFile( workspace, f.NativePath,Sometime when you’re debugging your application you run into a situation where you get funky behaviour.
You might do something like Javier mentioned in his recent blog post on Xojo’s blog :
Dim ASource() As Integer = Array(1,2,3,4,5,6,7,8)
Dim ATarget() As Integer
ATarget = ASourceAnd, as he noted, you cant figure out why when you change one array you also appear to alter the other.… Read the rest