Random Bits of Open Code

Check-in [aa8a1b0e9f]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:nada
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:aa8a1b0e9f4296f529f3ee5cc6d5f715f2f7c13b
User & Date: mrwellan 2018-08-07 22:08:47
Context
2018-08-08
02:27
Cleaned up time slots view/edit check-in: 55d3f9bc92 user: matt tags: trunk
2018-08-07
22:08
nada check-in: aa8a1b0e9f user: mrwellan tags: trunk
05:42
Lots of cleanup in multiapp check-in: d2888a0bef user: matt tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to multiapp/apps/learn-teach/learn-teach.scm.

463
464
465
466
467
468
469

470
471
472
473
474
475
476
	 (pkt      (get-subject-matching category subject level my-id))
	 (tpath    (conc category "/" subject "/" level))) ;; "/" details)))
    (if pkt
	(let* ((plist `((app      . "tnl")
			(person   . ,my-id)
			(parent   . ,(alist-ref 'Z pkt)))))
	  (tree-delete-node my-subjects-tree `("Subjects" ,category ,subject ,level))

	  (matrix-delete-row-matching my-subjects category subject level details)
	  (hash-table-delete! entries tpath)
	  (pkts:write-alist->pkt learn-teach-pkts-dir plist pktspec: pkt-spec ptype: 'del)
	  (apply-del-pkts)
	  (load-pkts)
	  ;; (get-and-fill-my-subjects my-subjects-tree my-subjects my-id data)
	  ))))







>







463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
	 (pkt      (get-subject-matching category subject level my-id))
	 (tpath    (conc category "/" subject "/" level))) ;; "/" details)))
    (if pkt
	(let* ((plist `((app      . "tnl")
			(person   . ,my-id)
			(parent   . ,(alist-ref 'Z pkt)))))
	  (tree-delete-node my-subjects-tree `("Subjects" ,category ,subject ,level))
	  ;; (tree-delete-node my-subjects-tree `("Subjects" ,category ,subject))
	  (matrix-delete-row-matching my-subjects category subject level details)
	  (hash-table-delete! entries tpath)
	  (pkts:write-alist->pkt learn-teach-pkts-dir plist pktspec: pkt-spec ptype: 'del)
	  (apply-del-pkts)
	  (load-pkts)
	  ;; (get-and-fill-my-subjects my-subjects-tree my-subjects my-id data)
	  ))))

Changes to multiapp/src/multiapp.scm.

38
39
40
41
42
43
44

45
46
47
48
49
50
51
52
53
    (hash-table-set! (main-dats obj) tabnum tabdat)  ;; tab data store (could just use closure from within updater but this allows the tab to potentially share data with other tabs)
    (if (> tabnum (main-maxtab obj))(main-maxtab-set! obj tabnum))
    guiobj))
    
;; pack the tabs
;;
(define (pack-tabs obj)

  (let ((tabs (iup:tabs
	       (get-tab obj learn-teach:make-tab 0)
	       ;; (get-tab obj ftf:make-tab    1)
	       )))
    (iup:attribute-set! tabs "TABTITLE0" "LearnTeach")
    ;; (iup:attribute-set! tabs "TABTITLE1" "ftfplan")
    tabs))

(defstruct main







>
|
|







38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
    (hash-table-set! (main-dats obj) tabnum tabdat)  ;; tab data store (could just use closure from within updater but this allows the tab to potentially share data with other tabs)
    (if (> tabnum (main-maxtab obj))(main-maxtab-set! obj tabnum))
    guiobj))
    
;; pack the tabs
;;
(define (pack-tabs obj)
  (let* ((learn-teach (get-tab obj learn-teach:make-tab 0))
	 (tabs (iup:tabs
		learn-teach
	       ;; (get-tab obj ftf:make-tab    1)
	       )))
    (iup:attribute-set! tabs "TABTITLE0" "LearnTeach")
    ;; (iup:attribute-set! tabs "TABTITLE1" "ftfplan")
    tabs))

(defstruct main