Changeset 62

Timestamp:

02/23/06 20:40:49 (3 years ago)

Author:

krobillard

Message:

Qt - Added 'destroy native.

Files:

• trunk/orca/qt/qorca.cpp (modified) (3 diffs)

trunk/orca/qt/qorca.cpp

@@ -844 +844 @@
 
 
+static void destroyNative( OValue* a1 )
+{
+    WIDPool::REC* rec = qEnv.pool.record( a1->integer );
+    if( rec )
+    {
+        delete rec->widget;
+    }
+    orResultNONE;
+}
+
+
 #define REF_RF_SAVE    a1+1
 #define REF_RF_DIR     a1+2
@@ -1151 +1162 @@
   "dialog: native [layout [block!]]\n"
   "widget: native [layout [block!]]\n"
+  "destroy: native [wid [integer!]]\n"
   "request-file: native [title [string!] /save /dir /init path]\n"
   "enable:   native [wid [integer!]]\n"
@@ -1219 +1231 @@
     orNative( (void*) dialogNative,         "dialog" );
     orNative( (void*) widgetNative,         "widget" );
+    orNative( (void*) destroyNative,        "destroy" );
     orNative( (void*) requestFileNative,    "request-file" );
     orNative( (void*) enableNative,         "enable" );