If mb nil then dim srcRows() as Integer for i as Integer = 0 to mb.Size- 1 step 4 Is this a moved row? if mEnableDragReorder and info.draggingSource = mTableView then dim mb as MemoryBlock = pb.dataForType(DragReorderPBType) InsertInMainMenu (NSClassFromString ( "FScriptMenuItem"))ĮventHandler Function acceptDrop(info as NSDraggingInfoMBS, row as Integer, dropOperation as Integer) As Boolean // Finishes the drop dim pb as NSPasteboardMBS = info.draggingPasteboardĭim operationMask as Integer = info.draggingSourceOperationMask #endif dim bndl as ptr = bundleWithPath (NSClassFromString ( "NSBundle"), path)Įlse declare sub insertInMainMenu lib "Cocoa" selector "insertInMainMenu" (cls as Ptr) #if false // this is useful for debugging issues with incorrect cell placement: // Inject FScript into this App's menu // (you need to place amework into /Library/Frameworks - and make sure it's one that supports 32 bit if you debug your Xojo app in that architecture) dim f as FolderItem = ( "Frameworks").Child( "amework")ĭeclare function NSClassFromString lib "Cocoa" (name as CFStringRef) as Ptr declare function bundleWithPath lib "Cocoa" selector "bundleWithPath:" (cls as Ptr, path as CFStringRef) as Ptr declare function load lib "Cocoa" selector "load" (obj as Ptr) as Boolean dim path as String #if RBVersion >= 2013 then
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |