There are ways to see what is / isnt being recompiled
Its one of those many temporary files xojo creates
First thing you need is the PID of the specific instance of xojo you’re interested in.
It makes life simpler IF you just run one version at a time
Once you start Xojo you can look in Activity Monitor & get its PID
If you find the dir referred to by SpecialFolder.Temporary… Read the rest
Working on putting together a really comprehensive list of changes
So far this is what I have (its mostly just desktop stuff)
API 1.0 to API 2.0 changes
new - the new API 2.0 line is shown
rem - the API 1.0 line that was removed is shown
chg - the new API 2.0 line is shown
new VAR (instead of DIM)
new <single dimension array.addrowSeems there is some lack of clarity about event handlers and event definitions and how this affects 2019r2.
Lets start with event handlers and event definitions.
When you take a control, like a push button, and drag one onto a layout you are creating an instance of a button on that layout. And you can add event handlers to that control.… Read the rest
A recent thread on the forums made it clear there is some lack of clarity about ByVal and ByRef
So here’s yet another attempt.
Value types are ones that the data assigned to them is stored right IN the memory location the compiler set aside for them.
A statement like
dim i as integerreserves a spot in memory when you compile.… Read the rest
There’s a lot of things to digest in 2019r2
One of the handy things that was added is a new Attribute you can make use of in your own custom controls – DefaultEvent
By adding this attribute to your custom class’ attributes you can make it so any one of the events your custom controls exposes is the “default event”.… Read the rest
Converting numbers, especially ones of a specific size, to hex has long been problematic. The built in functions don’t do a very good job with it and often drop leading zeros even when the integers size is known.
Dim s1 As String
s1 = Hex(13) // here 13 is an "Integer" literal
// and should be treated as a 32 bit integer in a 32 bit build
// or a 64 bit integer in a 64 bit build
Dim i8 As Int8 = 13
Dim s2 As String
s2 = i8.ToHexOr “write code like you immediately forget what you wrote” so it’s not a guessing game to figure out why you wrote what you wrote way back when.
What do I mean by that ?
Write code CLEARLY. Use constants liberally and give them good meaningful names.
So instead of writing a line like
If asc(key) = 16 or asc(key) = 204 thenwhere 16 and 204 are not obvious to everyone maybe write this as
Const ctrlP = 16
Const F5 = 204
if asc(key) = ctrlP or asc(key) = F5 thenAnd then even when you go back and look at this code in 6 months even you won’t have to guess what 16 and 204 mean.
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
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